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Preface 


In the beginning, there were messengers then there were the postal services that we still 
use to send and receive messages. Then there was the telephone and telegraph and now, in 
this electronic age, it is the Internet, or any computer network for that matter, that carry 


our messages. 


The Internet has ballooned our capacities to reach out to people in far-flung places in 
absolute real-time. Not that telephonic conversations are any less real-time but computer 
networks have added the flavours of E-mail, Chat, Live Video Conferencing and yet more 
to the concept of real-time communications. Above all, the Internet has enabled us to 
exchange content. Content in the sense, text messages, recorded voice, recorded video 


and other electronic content in every sense. 


As the Internet story unveils, you get to learn of certain security concerns on the web. And 
one among them is the malicious attacks on information being sent through the electronic 
pipelines. As an example, for instance, an intruder could change the content of messages 
that you send through the network. Other attacks can include imposters who pretend to be 
people who they really are not. In a general sense, we are talking of the problem of 


authentication. 
The work on this project deals with a process of watermarking a text message with a set 


of keys to produce a text message that is marked such that the contents can be 


authenticated using the same set of keys. 
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Introduction 


The Internet has brought a whole world of information to our fingertips. Along with it, has 
come the word of “how small a world we live in”. Really small when you fall in the hands 


of hackers and imposters prowling about the Internet. 


For example, there could be prowlers to get hold of the regular emails that you send and 
alter them to your disadvantage, for whatever reasons. What about imposters who tend to 


make you believe that he/she is a certain person, who he/she may not be. 


The ease of reproduction, distribution, and manipulation of digital documents creates 
problems for authorized parties that wish to prevent illegal use of such document. In this 
age of information explosion on the digital networks there grows the need to standardize, 
and make popular, procedures for authenticating text information that need to remain as 
simple text in its presented-output form. For instance, text content posted on public 
archives on the Internet, such as the World Wide Web, could be watermarked with a key 
and still be readable in its output form. A digital watermark is an imperceptible, robust, 
secure message embedded directly into a document. The watermark is imperceptible both 
perceptually and statistically. Robustness means that the watermark cannot be removed or 


modified unless the document is altered to the point of no value. 
The main problems we face with watermarking text are: 

e the output text need to be in readable form 

e the text content can be authenticated 


e the embossing algorithm must be open source 


This could, at some time, be used to protect copyrights of textual content posted on the 


Internet. 
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With existing encryption techniques on text, the problem of keeping the textual content 


readable remains. 


This project work tries to address the above-mentioned issues to establish a procedure or 


concept for text authentication. 
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PART |: THE PROJECT 
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Watermarks 


A digital watermark is a digital signal or pattern inserted into a digital document (text, 
graphics, sound and other multimedia presentations). It is a sort of electronic watermark 
much like the corporate logos used by television channels to identify the source of the 
program. Such mechanics are generally used to protect the copyright of the broadcast 
signals against purposes like illegal video recoding. The source signature is part of the 


transmission signal and gets recorded along with the content. 


Digital watermarks extend these advantages to digital documents. A signal or pattern may 
be digitally imposed on a document prior to sale or distribution The persistence of the 
watermark under transmission, and some common forms of transformation, contribute to 
our ability to authenticate copies. This, in turn, should enable us to protect our ownership 


rights of digital information, even in the undisciplined, anarchistic world of the Internet. 


Watermarking in History and Now 


The use of watermarking is almost as old as paper manufacturing. The paper 
manufacturing process has almost remained unchanged in its 2,000-year history. The 
earliest use of watermarking can be traced back to the time from when paper manufactures 
began to record a faint trademark symbol on each paper. In more recent times, 
watermarks have been used to certify the composition of the paper, including the nature of 
the fibers used. Today, most countries also watermark their paper currencies and postage 


stamps to make forgery more difficult. 
As digitization spreads around the world it has fired the requirement of embedding 


watermarks into immaterial objects, that are pieces of bits, so that the source and content 


can be later authenticated. Now we have come to a stage where we need verifiable digital 
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impressions on digital content to authenticate ownership claims and protecting proprietary 


interests. 
In principal, however, digital watermarks are not very much unlike their paper ancestors. 


Watermarks are used in multiple forms in various information medias as a guarantee of 


authenticity, quality, ownership and source. 
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Concept of the Project 


The basic concept of the algorithm and associated software program presented in this 
project on Text Watermarking is the idea of embossing blank spaces into a text document 
based on a set of keys. The embossed document can then be verified for authenticity using 


the same set of keys. 


The user creates a text document, called Infile in the algorithm, containing the message 
that must be watermarked. The watermarking process also requires the user to provide a 
key based on which the embossing is done. Multiple emboss keys are extracted from the 


user-provided key to do the embossing process. 


White spaces are inserted into a line of text in accordance to a value that is derived from 


the value of the key and the number of words in the line. 


Since we use a set of keys, we emboss each line using a different key extracted from the 
Testfile. If the number of lines that must be marked is more than the number of keys 


provided by the user, the same set is used repetitively. 


After embossing white spaces into a line, the algorithm then justifies the line to a line 
length that is provided by the user. This value is indicated by the identifier 
MAXLLENGTH in the proposed algorithm. It is basically the length of each line of output 
that the watermarking process must use. For instance, if the value of MAXLLENGTH is 
60 then each line after being embossed must be justified to a length of 60 characters by 


inserting additional white spaces. 
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The Algorithm 


In this section is listed the proposed algorithms for the encoding and decoding process. 


Encoder 


Encoder (Infile, Testfile, Outfile) 
Infile: The input text file that will be watermarked 
Testfile: The file containing a set of integer keys. One key per line. 


Outfile: The file that will receive the watermarked text output. 


Global: MAXLLENGTH — The number of characters that each output line must be 


justified to. 


Step - 1: Calculate the no. of keys in Testfile. If this number is less than the number of 


output lines then the same keys are repeated. 


Step - 2: Scan Infile and keep the characters in an array A. Collapse multiple consecutive 


spaces while extracting characters from Infile. 


Step - 3: Read in MAXLLENGTH characters from A. If the MAXLLENGTH+1 
character in A is not a blank then backtrack till we reach the last blank in the 
character stored in array A and also adjust character count and word count 


accordingly. 


Step 4 - Find the secret key from the corresponding line of the Testfile and let it be “T’ 


and let the adjusted word count for the line under scan be “W’. 
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Step 5 - The no. of additional white spaces to be inserted in the next line as embossed 


blanks = T mod W = x (say). 


Step 6 - Let the character count for the line under scan be ‘y’ before embossing. Now if 


x+y > 60 we again backtrack and repeat Steps 3 through 6. 


Step 7 - Add extra blanks in the line under scan to make character count equal to 60 for 


proper right justification. 


Step 8 - Repeat Steps 2 through 7 till EOF of Infile is reached. 


Decoder 


Decoder (Outfile, Testfile) 
Testfile: The key file. One key per line. 
Outfile: The watermarked text output file. 
Step 1 - Calculate and maintain the no. lines in the Testfile. 


Step 2 - Extract estimated MAXLLENGTH for the lines in Outfile. 


Step 3 - Scan Infile line by line and keep the count of blanks and the count of words in a 


particular line under test. Assume these to be ‘B’ and “W’ respectively. 


Step 4 - Find the secret key from the corresponding line of Testfile and let it be “T’. 


Step 5 - Calculate the estimated no. of embossed blanks to exist in the scan line, 
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x = T mod W. 


Step 6 - Count the no. of character in the first word of the next line, say “C’. 


Step 7 - If B=(W-1)+x thenOK 
Else if B > { (W-1) +x } AND { B- (W-1)-x} <C 
then also OK 
Otherwise 


Embossing not correct 


Step 8 - Repeat Steps 2 through 6 till EOF of Infile is reached. 
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Two Comparisons 


Fingerprinting and Watermarking 


Fingerprinting and Watermarking, in unison, is a proposed solution to copyright 
protection. One may think of a fingerprint as an embedded serial number while a 
watermark is an embedded copyright message. The first enables us to trace offenders, 
while the second can provide some of the evidence needed to prosecute them. It may also, 
as in the DVD Consortium proposal, form part of the primary copyright management 
system; but it will more often provide an independent backup to a copy management 


system that uses overt mechanisms such digital signatures. 


Digital fingerprinting no doubt differs a lot from watermarking. In the fingerprinting 
technique, a “meta” file is produced that describe the content of the source file. Cyclic 
redundancy checking and checksum algorithms are both simple uses of file fingerprinting 
for error detection and correction. The RSA Data Security’s use of message digests for 


authentication purposes is also an implementation of fingerprinting. 


In the Watermarking process for Text presented in this project, the original text message 
is marked with blank spaces with the help of a set of keys. The keys are secret variables 
that are in general known to the owner of the message. The watermarked content can be 


verified for authenticity later using the same set of keys. 


Encryption and Watermarking 


There is a vast gap between the concepts of encryption and that of watermarking. Digital 
watermarking is not encryption. Encryption involves a transformation of the digital 


content. It is a common practice nowadays to encrypt digital documents so that they 
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cannot be viewed without a decryption key. Unlike encryption, however, digital 
watermarking leaves the original text, image or file basically intact and recognizable and 


visually or audibly presentable. 


Similar to file compression, decrypted documents are free of any residual effects that the 
encryption process may have imposed on the document. Contrarily, visible or audible 
digital watermarks are designed to be persistent in viewing, printing, hearing in broadcasts, 


transmissions or retransmissions. 
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The Digital Media 


Digital media are replacing traditional analog media for storing information. Digital media, 
means digital representations of audio, text documents, images, video, three-dimensional 
scenes, etc. Unlike analog media, digital media can be duplicated, and distributed with no 
loss of fidelity. Since digital content is copied bit by bit the duplicate is an exact replication 
of the original. Along with such benefits digital media also create problems for parties who 
wish to prevent illegal reproduction and distribution of valuable digital media (e.g., 


copyrighted, commercial, privileged, sensitive, and/or secret documents). 


Among classic methods for protecting distributed documents are encryption and copy 
protection. However, once decrypted, a document can be copied and distributed easily, 
and copy-protection mechanisms can often be bypassed. Copy-protection mechanisms that 
have been designed and implemented on many hardware manufacturers’ machines have 


slowly died out for the need of global support and standardized enforceable methods. 


More recently the work of the Digital Video Disk (DVD) Consortium, also known as 
Digital Versatile Disk (DVD) consortium, in taking steps towards copy protection of 
video contents is worth mentioning. The idea is that the DVD players sold to consumers 
allow unlimited copying of home videos and time-shifted viewing of TV programs, but 
cannot easily be abused for commercial piracy. The proposed implementation is that 
videos will be unmarked, or marked ‘never copy’, or ‘copy once only’; compliant players 
will not be able to record a video marked ‘never copy’ and when recording one marked 
‘copy once only’ will change its mark to ‘never copy’. Commercially sold videos will be 
marked ‘never copy’, while TV broadcasts and similar material are be marked ‘copy once 


only’ and home videos will be unmarked. 
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Digital watermarking has been proposed as a “last line of defense” against unauthorized 
distribution of valuable digital media. A digital watermarking system embeds information 


directly into a document. 
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The Target Audience 


This work on “Text Embossing: Watermarking for Text” is primarily targeted towards 
implementations of authentication procedures to watermarking of text. Watermarking can 
be used by various people for varied purposes. Watermarking can be functionally used for 
implementations of authentication of messages to ownership claims. The users of email 
who need an efficient method for ensuring that the contents of text messages received by 
them have not been touched on the way can use watermarking as an authentication 


procedure. 


Newer text contents come up on the Web everyday and we also need to concern ourselves 
with the prevention of copyright and Intellectual Property Rights (IPR) infringements. I 
hope this work will also affect ongoing research on IPR protection for text information 


posted on public archives, notably on the World Wide Web. 


There is a lot of trash on the web. For instance Urban Legends. And worse ideas running 
among users of the Web. With further relevant modifications this algorithm could be used 
by original authors to watermark original articles that could with further technologies be 


indexed by the Search Engines on the Web. 


Watermarked text can also find its application in fields such as ascertaining the proof of 
ownership, owner identification, content authentication, integrity check, copy control and 
several other authentication related studies. In fact, it can also be used as a robust covert 


channel for communications. 
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PART Il: THE SOFTWARE DEVELOPMENT 
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The Software Process Model 


A “software process” is a series of predictable steps that software developers must go 


through to create timely, high-quality software products. 


The development of the software resulting out of this project was built based on the 
Prototyping Software Process Model. In this software engineering model for software 
development we first create a prototype of a working system and then build the complete 


program around it. 


The Prototyping Model of Software Process comes to great use when the complete 
requirements of the intended software product is not possible to ascertain from the 
beginning. It also proves useful when the developer is unsure of the efficiency of an 
algorithm, the adaptability of an operating system, or the form that human/machine 
interaction should take. In this model we begin with requirements gathering and go on to 
define the overall objectives of the software. Then an abstraction, i.e., a prototype, of the 
software is built that is played with to get further response and feedback about the 
identified requirements. Further new requirement clauses are also expected to arise at this 
stage. Such iterations occur as the prototype is tuned to satisfy the output requirements 
while at the same time enabling the developer to better understand and realize what needs 


to be done. 
Because this is a research project, it was thought fit to be developed using the prototype 
model since the requirements could change frequently and undiscovered requirements 


could remain. 


The core modules were built first, sometimes themselves being broken into sub-modules. 


The core modules included the “EmbossLine” function that takes a text string and an 
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integer as arguments and builds the final embossed string from the received string based 


on the integer value received as argument. 


Other core modules included “Write2Outfile” that writes a text string to a file, 
“LoadInfile2Array” that loads the characters in the input file into the string variable “A”, 
the “GetNextKey” function that fetches the key that is going to be used to emboss the 


current line of text. 


Along with the core functions were also built custom string handling routines that 


included, the “arrWordCount” function that counts the number of words in a text string. 


As output requirements got clearer by playing around with the prototypes, the modules 
that would support the core modules were built. Such modules included, the “Encode” 
sub-procedure that really fires the main embossing process, the “getNextLine” function 
that fetches the next line of text that must go in for embossing, the 
“AdjustLineB4Emboss” sub-procedure that actually decides how many words get to go 


into the current line being embossed and written to output file, given the generated key. 


As more requirements came in and the process to extract keys from the Watermark keys 
file was devised, the “GenerateKeys” function was finally written. This is also when the 
“GetNextKey” function was properly re-written to be integrated with the new process for 
generating keys. Till then, “GetNextKey” was working as a dummy function that always 


returned the same key. 
Finally, the Graphical User Interface (GUI) was worked on. Till this point the program 
windows simply provided interfaces through buttons with static inputs to test the various 


functions, individually or collectively, that were built. 


Here I should note that the Encoding part of the software was coded before the Decoding 


part was done. The decoding process was faster to build because by that time the 
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Encoding part along with its user interface was complete. The Decoding procedures were 


also developed using the same model. 
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Analysis 


The job of Software Requirements Analysis phase is to take a harder look to understand 
the specific requirements that must be achieved to build high-quality software. This phase 
gets due attention because it is a necessity for building software that produces the relevant 
output to the respective users. Without this detailed phase you could easily develop 


software programs that solved the wrong problems. 


Use-case 


Roger S. Pressman in his book “Software Engineering: A Practitioner’s Approach’, very 
briefly states about a use-case as “a scenario that describes how software is to be used in a 
given situation”. This tool is used in Quality Function Deployment (QFD), a quality 
management technique that translates the needs of the customer into technical 
requirements for software, originally developed in Japan and first used at the Kobe 


Shipyard of Mitsubishi Heavy Industries, Ltd., in the early 1970s. 


Creating a use-case involves the identification of the different types of role that people (or 
devices) will play while using the system or product. These role players are called actors. 
After the actors are identified, use-cases are prepared. A use-case is a simple narrative that 


describes the role of an actor as interaction with the system occurs. 
The following actors were identified while preparing this software: 
e message sender 
e message receiver 


e embossing 


e authentication 


Debjyoti Das 25/129 


Text Emboss: Watermarking for Text 


Message Sender Message Receiver 


Embossing Authentication 


Figure: Actors identified for the system 


Use-case for Message Sender: 


e The sender selects an existing text file as the source text file to be embossed. He 
observes the contents of the file being loaded in the Source Input File text edit 
box. 

e The sender decides to create a new message to be sent. He types the message into 
the Source Input File text edit box and saves the message to a file on the disk. 

e The user modifies the contents of the Source Input File text edit box and saves a 
modified version of an already existing source text file. The user can overwrite the 
existing file or save the modified text to another file. 

e selects an existing text file as the watermark symbol 

e creates the text file containing the emboss keys (watermark symbol) 

e edits an existing watermark symbol file 

e saves a modified version of an existing watermark symbol file 

e specifies the output file that must receive the embossed output 

e views the output file containing the embossed message 

e specifies the character count to which the embossed output lines of string must be 
justified to 


e presses the Emboss button to start the embossing process 
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e resizes the Watermark Editor window 


Use-case for Message Receiver: 


e selects the received embossed text file 
e selects the respective file containing the watermark symbol 


e clicks on the Verify button to authenticate the message file content 


Use-case for Message Embossing Process: 


The embossing process was built with an abstraction separate from the user-interface 
handling due to which a use-case was built for the process as an individual abstraction. 
This way of handling the system could prove useful in cases where the embossing 
procedure is embedded inside silicon chips. The chip performing the emboss operation 
could be considered as a separate device whose role in an abstraction is to just the specific 


operation and not be involved with the interface. 


e opens the source text file to be embossed 

e opens the file containing the Watermark symbol 

e identifies the character count to which the embossed output lines of string have 
been justified to 

e embosses the source text file content while writing each line of output to the 


specified output file 
Use-case for Message Authentication Process: 
The authentication process was built with an abstraction separate from the user-interface 
handling due to which a use-case was built for the process as an individual abstraction. 


This way of handling the system could prove useful in cases where the authentication 


procedure is embedded inside silicon chips. The chip performing the authentication 
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operation could be considered as a separate device whose role in an abstraction is to just 


the specific operation and not be involved with the interface. 


e opens the embossed file to be authenticated 

e opens the file containing the Watermark symbol 

e verifies if the contents of the embossed file is in accordance with the Watermark 
symbol 


e informs the receiver the result of the authentication process 


The Information Domain 


The information domain of a problem encompasses data items or objects that contain 
information, of any kind, for use to the process to be implemented. Information could be 
in varied forms like number, text, image, audio, video etc. We could have to handle any 


combination of the previously mentioned forms of information. 
In this section we try to represent the information domain in the following views: 
e Information content 


e Information flow 


e Information structure 


Information Content 


Here is an enumeration of the individual data and control objects, the information content, 


that constitute the overall collection of information transformed by the software. 


1. Infile: Input file that contains the text message that must be embossed. 


o Contains: 
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ASCII characters. 
# Words composed of non-space ASCII characters terminated by an 
ASCII space character (ASCII-32). 
# Sentences composed of multiple consecutive words and the ASCII 
space characters terminated by a “newline” character. 
2. Testfile: Input file that contains the watermark symbol. 
o Contains: 
# Multi-line file containing ASCII characters in any combination. 
Only occurrences of the asterisk (*) character is significant to the 
generation of the numeric key extracted from a line of text from 
Testfile. 
3. Outfile: Input filename that must receive the embossed output of Infile. 
o Contains: Irrelevant 
4. MAXLLENGTH: An integer value input that represents the maximum number of 
characters that go into each line of embossed text. 
5. EncodeKeys: An integer array that holds a series of keys extracted from the 
Testfile. 
6. A$: String variable that hold a multi-space-collapsed version of the file Infile. 
o Contains: 
# ASCII characters 
# Words composed of non-space ASCII characters. 
# The ASCII space character (ASCII-32) that acts as the word- 
separator. 
#* No multiple space characters between two words. 
7. startCharPos: An integer number representing the character position in A$ from 
where the next line to be embossed will be extracted from. 
8. currentLine: The string that is going in for embossing. 
9. Key: The integer value that is going to be used as the key for embossing 
currentLine. 


10. currentLineNo: The line number that is currently being processed. 
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11. embossCharCount: The number of characters to be inserted into currentLine to 


produce the embossed output. 
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Information Flow 


The Information Flow report in this section represents the manner in which data and 
control change as each move through the total system. The following figure illustrates the 


Information Flow during the Embossing process. 


npu 


Infile 
Testfile 
Outfile 


Populate 
EncodeKeys 


[_) Populate A$ 


MAXLLENGTH 


Get next line to 
emboss. Get the 
respective Key. 


Output 
Outfile 


Calculate 
embossCharCount 


Insert embossCharCount chars 
to currentLine. Adjust line length 
to MAXLLENGTH. 


Calculate 
embossCharCount 


Figure: Embossing Information Flow and Transformation 
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Here is the Information Flow diagram for the Validation (Decoding) process. 


Calculate 
MAXLLENGTH 


Populate 
EncodeKeys 


Get the next line 
to verify. 


Get the 
respective Key. 


Output Validate the embossed 


characters in the line 
corresponding to the Key 
extracted. 


Validity 


Confirmation 
Message 


Figure: Validating (Decoding} Information Flow and Transformation 
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Partitioning 


Often, the problem to be worked on happens to be too large or complex to be understood 
and handled as a whole. For this reason, we tend to partition such problems into parts that 
can be easily understood and establish interfaces between the parts so that overall 


functionality can be accomplished. 
Partitioning decomposes a problem into its constituent parts. Conceptually, we establish a 
hierarchical representation of function or information and then partition the uppermost 
element by: 

1. Exposing increasing detail by partitioning vertically 


2. Functionally decomposing the problem by partitioning horizontally 


Here is a partitioned representation of the functionality of the software program. 


EMBOSSING SOFTWARE 


Configuration Embass Authenticate Mail Interact with 
User 


Figure: Horizontal Partitioning of the Program Functionality 
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The following is a partitioning that was made for the intended Embossing process. 


EMBOSS 
Get Next Line Get Next Key Adjust Line Before Emboss Line Write Embossed 
Embossing Line to Outfile 


Figure: Horizontal Partitioning of the Emboss Process 
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The Software Prototyping Approach 


The evolutionary prototyping model was used while developing the software program that 
accompanies this project. This is basically an open-ended approach to software 
prototyping where the prototype built is worked on to evolve further functional 
prototypes. This iterative process is continued till the final product specification is 


accomplished. The prototype of the software is the first evolution of the finished system. 


In general, applications that interact heavily with the user or demands algorithms or 
combinatorial processing that must be developed in an evolutionary fashion is desirable to 
be built using prototypes. Prototypes or models are built that try to simulate the final 
product functionality and given to the prospective users to play around with it. The users 
can, in time, point out the missed out, wrong or misinterpreted requirements specifications 
and the unwanted outputs. There is, however, another well-known software prototyping 
approach called throwaway prototyping in which a prototype serves solely as a rough 


demonstration of requirements after which it is discarded. 
The following are brief development notes from each prototype evolution version. 


The first prototype that was built implemented the procedure for reading the input file, 
Infile, into the string variable A$ while also collapsing multiple consecutive blank spaces 
that may occur in Infile. The procedure in the source code implementing this is named 
“LoadInfile2Array’”. This prototype also included the procedure for embossing a line with 
the help of the Key. It simply accepted a string and the key as arguments, calculated the 
number of blank spaces that would be embossed into the received string and appended 
them to the end of the lines of embossed output. This procedure later was named the 
function “EmbossLine”. The user interface simply had two command buttons to call the 
respective procedures with constant valued arguments and then showed the result using 


message boxes or in the Visual Basic Debug Window. 
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In the second prototype was built the procedures for counting the number of words in a 
given line of text, “arrWordCount”’, writing a string to a new line in the output file Outtfile, 
“Write2Outfile”’ and counting the number of spaces occurring in a text string, 
“arrSpaceCount”. These procedures would help extend the functionality of the 


“EmbossLine” procedure. 


The third prototype added the functionality to read a text substring from the string 
variable A$ that would go in for embossing. This function was called “GetNextLine” and 
heavily uses the “startCharPos” variable to read in the words from A$ starting at 
“startCharPos”. This prototype also included an upgrade of the “EmbossLine” function in 
which the embossed white spaces used to be simply appended to the end of the line being 
embossed. Now the blank spaces are being inserted between words and it works fine. The 


user interface is not in detail as yet. 


The fourth prototype successfully implemented the intelligence for choosing the correct 
number of words from the string that can be included in the current line that is going in for 
embossing. The technique is quite involved and it was implemented as_ the 
“AdjustLineB4Emboss” sub-procedure in the program source code. There is a lot of 
useful technical comments inside the sub-procedure in the source code. Most of the 
functions and sub-procedures have been successfully interlinked to produce what seems 
correct output. The total embossing procedure is working and the output is correctly 


being written to the disk file. The Key used in the program is still a constant value. 


The fifth prototype came up after the final decision of what the format of the file that 
contains the Watermark symbol (the Testfile) will be like. It included the “GenerateKeys” 
public function that populates the EncodeKeys dynamic-array with the keys extracted 
from Testfile. The problem with the constant valued key in the interface was patched up. 


The “GetNextKey” function now fetches the respective key that is to be used for 
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embossing the current line of text. Now the complete programming implementation of the 


embossing algorithm is complete. 


The sixth prototype had the user interface for the embossing process almost completely 
built up. It had options for choosing arbitrary input files (Infile), Output files (Outfile) and 
Watermark Symbol files (Testfile). Facilities for saving, editing or creating a new Infile 
have been added to the interface. The Watermark Symbol file (Testfile) can also be 
created or edited directly from the user interface. The user can also view the embossed 
output file (Outfile) directly from the interface. Options for changing the length of each 


output line by the user was also added. 


The seventh prototype successfully implemented the algorithm for Decoding (Verifying) 
an embossed output file (Outfile). The user interface is complete and is similar to the 
interface for the Embossing process. The user has the options for selecting the 
Watermarked Output File that he/she has received and the corresponding file containing 


the Watermark symbol (Testfile). 
The sixth prototype implements the email client bundled along with this software. The 


email client uses the Microsoft MAPI technology to work with an existing MAPI enabled 


mail account. 
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Analysis Modeling 


Data Flow Diagrams - The Functional Model 


As information moves through software, it is modified by a series of transformations. A 
data flow diagram (DFD) is a graphical representation that depicts information flow and 


the transforms that are applied as data move from input to output. 
Some data flow diagrams in this section includes the Hatley and Pirbhai extensions that 
adds graphical symbols to represent control-oriented aspects of the software. The dashed 


arrow is used to represent control or event flow. 


Here is the DFD for the embossing process: 
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Figure: Embossing process data flow diagram 
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State Transition Diagrams - The Behavioral Model 


Behavioral modeling is an operational principle for all requirements analysis methods. The 
state transition diagram (STD) represents the behavior of a system by depicting its states 
and the events that cause the system to change state. Additionally, the state transition 


diagram indicates what actions are taken as a consequence of a particular event. 


A state is any observable mode of behavior. In the state transition diagrams presented in 
this section, rectangles represent system states and arrows represent transitions between 
states. Each arrow is labeled with a rules expression. The top value indicates the event(s) 
that cause the transition to occur. The bottom value indicates the action that occurs as a 


consequence of the event. 


The following illustration is a state transition diagram for the software program. 
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Figure: Software operation State Transition Diagram 
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The following figure illustrates the state transition for the embossing process. 


reset 
attempting to 
generate keys 
Written 
no Testfile File Error embossedLine 
to Outfile 
no 
more read Infile 
chars 
no Infile 


Infile loaded to 
string AS 


read Ag write to flile 


currentLine 
Loaded 


fetch Key 
currentLine Bmboes currentLine 
Key found adjust line character count naraceks embossed into 
adjusted embossedLine 


Figure: Embossing Component State Transition Diagram 
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The authentication component decodes the embossed output file according to the 
provided Watermark symbol file (Testfile). The following diagram illustrates the state 
transitions across the Authentication process. 
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Figure: Authentication Component State Transition Diagram 
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The software accompanying this project uses the Microsoft MAPI-drivers in its email 
component. Here is a State Transition Diagram for the Email handling component. 
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Figure: Email Component State Transition Diagram 
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Design 


In the design phase the goal is to produce a model or an engineering representation of an 
entity that will be built. In the software engineering context, design focuses on four major 


areas: data, architecture, interfaces and components. 


For a successful and good design for the ultimate product to be built up we need to adhere 
to some principles during the design phase. The following are few design principles that 


were adhered to all along the research and development of this project: 


e The source code for the product can be built in an evolutionary fashion. 

e Modular design techniques. We should be able to logically partition the software 
into elements that perform specific functions and sub-functions. 

e Interface design should lead to interfaces that reduce the complexity of 
connections between modules and with the external environment. 

e The software program components must exhibit independent functional 
characteristics. 

e Recognized design patterns to be used for design illustrations. 

e The design would be composed of components that exhibit good design 
characteristics. 

e The design should be traceable to the analysis model. This is how we will be able 
to track how requirements have been satisfied by the design model. 

e The design is to be made in a way so that it can accommodate changes with little 
effort. 

e The software is to be designed to accommodate unusual circumstances such as 
exceptions and errors and in case where it must terminate, it should do so in a 


graceful manner. 


Debjyoti Das 43/129 


Text Emboss: Watermarking for Text 


e The level of abstraction of the design model is higher than source code. The only 
decisions made at the coding level address the small implementation details that 


enable the procedural design to be coded. 


Software Architecture Design 


Architectural design represents the structure of data and program components that are 
required to build a computer-based system. Architecture is a manner in which the various 
components of the total system are integrated to form a cohesive whole. It is the way in 
which the components co-exist inside the system and meshes with other components in the 


vicinity. 


The software resulting out of this project uses a call-and-return architecture. This 


architecture facilitates to easily achieve modifiability and scalability in a software system. 


The following figure illustrates the main software program architecture that was used for 


building this program. 


Figure: Software program first level architecture 
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Here is the Architecture for the Encode subsystem. 
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Figure: Encode Subsystem Architecture 


The following illustration represents the architecture for the decode subsystem. 
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Figure: Decode Subsystem Architecture 
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Testing 


Software testing in one of the prime phases in software development. Once the source 
code is generated, it must be thoroughly tested to uncover (and correct) errors and unseen 
exceptional cases. It is a critical element in software quality assurance (SQA) and 


represents the final review of specification, design and code generation. 


The testing strategy used for the development of the software accompanying this project 
are descried in brief in the following paragraphs. For the testing phase proper test cases 


were built with inputs in multiple forms and given to the routines under test. 


Unit Testing: In this phase the smallest units of the program, the individual functions and 
subroutines, were tested for verification of behavior. The flexible interface of the Visual 
Basic IDE has really good tools for unit testing and debugging. The tools that truly 
facilitate this phase are the Debug Immediate Window Tool, the Locals Window Tool and 
the Watches Tool. Each individual function and subroutine in the program was thoroughly 
tested using dummy command buttons on the user interface to invoke them and the 
resulting output was verified with the expected ones. The click event of the command 
buttons acted as drivers for testing the individual units. The local data was also examined 
to ensure that the data stored in local variables maintain integrity according to the 
algorithm requirements. All independent paths in the control structure of each unit was 


exercised to try and uncover exceptional cases that may occur in the execution process. 


Integration Testing: This phase includes verifying if the individual units of the program has 
been bound together correctly. Here the problem of interfacing is a major concern. There 
may arise problems in the interfacing of the functions and subroutines that compose the 
whole software. Improper interfacing can lead to loss of data and can also cause adverse 


effects on other routines. The integration testing was done using the Bottom-up 
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Integration strategy. The testing process went from lower level modules up the higher 


ones. 


Regression Testing: Each time the program requirements changed, newer modules had to 
be included into the program. Also several modules had to be lastly replaced with other 
new modules and sometimes-existing modules had to be modified or rewritten. This phase 
included the repetitive testing of a subset of the total integration testing to exercise the 
different parts of the modified portions of the program. This phase went hand in hand with 


integration testing. 


Validation Testing: After the completion of integration testing, this phase was carried out 
to validate the outputs as against different inputs in accordance to the requirements that 
had been focused. Form level validation testing was also carried out at this level. Multiple 
test inputs were fed to the program to get the resulting output and then validated 


according to the planned output specifications. 


Recovery Testing: Part of the system testing agenda this was done to test the behavior of 
the software under exceptional conditions. All fault recovery program control flows were 
exercised under this testing procedure by making the software to fail in a variety of ways 
and checking if proper recovery is performed. Such tests included forcing the program to 


process non-existent files, invalid keys, etc. 


Stress Testing: This testing was done to check how much load the software and its 
components can take. The software was given input files of large sizes to process. A big 
change in the interface design that occurred during this phase was replacing the Text 
Boxes on the forms to Rich Text Boxes. A problem with simple Text Boxes that was 
identified was that it could not load contents from really large files. Data types of many 
variables used in the program had to be changed to process such large quantities of text. 
As part of this phase the software was given large text files (up to 2 MB) to process while 


other programs ran on the same machine. 
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Performance Testing: This phase tested the overall performance of the software program. 
Multiple text files of various sizes were tested to check the runtime performance of the 


program. The following is a performance test report sheet for the Emboss process. 


Performance Test Report Sheet 
SN. File Size | Characters Words White-spaces Avg. word size Lines Time 


(bytes) (chars) (ms) 
i 430 430 92 97 4 1 1 
2 427 427 66 79 ce) ] ] 
3. 1360 1360 233 233 5 1 2 
4. 2190 2190 357 356 5 1 3 
Dis 3110 S106" > oy 515 5 Wi 5 
6. 3771] 3763 621 629 5 5 6 
de 4053 4047 679 676 ce) 4 7 
8. 4757 4749 793 789 6) e) 7 
9. 5054 5044 849 846 5 6 8 
10. 6636 6624 1092 1096 5 7. 10 
Ls 8946 8928 1479 1492 5: 10 14 
12 10452 10448 1681 1693 5 3 16 
13. 19654 19646 3100 3145 5 5 31 
14. 25308 25134 3941 3913 5 88 43 
ikey, 2I 207 27237 4627 4642 5 16 50 
16. 66445 66425 11198 12S coe 192 
MF 78190 78148 13106 13136 5 22 361 
18 81115 81071 13593 13624 5 23 438 
19. 97174 97126 16102 16180 Di. 26-709 
20), 103883 103831 17190 7270) De 2s ZF 


All tests were run under Windows Me on an AMD Athlon XP 1700+ and 256 MB RAM. 
The test time results include overheads for _ calculating the time. 
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PART Ill: USER’S MANUAL 
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Text Emboss: Watermarking for Text. User’s Manual 


Introduction 


Welcome to the User’s Manual for the software “Text Emboss’”. This manual will guide 


you through the basic operations of the said software program. 


“Text Emboss” implements an algorithm for watermarking for textual documents. The 
watermarking technique used in this implementation uses a set of integer keys to place a 
watermark on a text document. The marked document can then be checked for validity 


using the same key set that was used for the watermarking process. 


“Text Emboss” requires a text file as the input file to the watermarked. This file is also 
referred to as the ‘Jnfile’ in several parts of this manual. The Infile would ideally contain a 
text message/content that will be watermarked to produce a watermarked output file, also 


referred to as ‘Outfile’. 


The watermarking procedure uses a set of keys instead of a single key used in 
conventional watermarking implementations. However, the user is supposed to enter only 


a single integer value as the emboss key. The key value must have even number of digits. 


“Text Emboss” outputs each watermarked line as justified to a specified length of 
characters. This length of each output line, also referred to as MAXLLENGTH in parts of 
this manual, must also be provided to the program as input through the user interface 


provided. 
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Interface Components 


In this section you will find the basic operations of the various interface components of 
this software program. High interactivity was attempted to be achieved while designing 
the user interface. Hence you will find enough Tool Tip Texts, error messages and other 
labeled window objects to guide you through the use of this software incase this guide is 


not available. 


The Main Application Window 


The main application window of the software uses the multiple document interface and is 
loaded with a Toolbar to give you easy access to the various functions you would do with 


this program. The following is a snapshot of the main application window. 


¢: Text Emboss 


Operate View Help 


= 8 6 


Verify Message Editor Mail 
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The toolbar is in the top of the window and contains tools for operating this software. The 


following tools are in the main window toolbar. 


Emboss Click this button to go to emboss a text document. 


Verity Click this button to go to verify a watermarked document. 


Message Editor Opens an editor for text messages. 


Mail Opens an Email client compatible to MAPI mail services. 
Help Shows the user’s manual. 
Exit Ends the program. 
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Embossing 
To get to the component that lets you watermark text documents you need to click on the 


Emboss button = on the main window toolbar. The following window appears: 


Emboss 


This is the window from where you can watermark your text documents. To watermark a 
document file first load it using the “Load File” command button. Once a file is loaded its 
contents will appear in the Source Input File text edit box. After the loading process an 
analysis report is displayed on the right-most panel of the window. This report is related to 


the Infile you just loaded. The report displays the File Size, the number of characters in the 
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file, the number of words found in the file, number of white spaces, the average word size 


and the number of lines in the file. Here is a screen shot of a sample file thus loaded. 


LT lolx 


~ Source Input file Operations 


WELCOME TO ‘TEXT EMBOSS'. A ~ Max. Line Length 
Length of a line in the output 


file [in character units). 
Infile Analysis Report 
File Size: 427 bytes 


Characters: 427 


AND IPR MANAGEMENT. THIS IMPLEMENTATION Words: 66 
USES A SET OF KEYS FOR THE EMBOSSING. * 


White-spaces: 79 
Analize Infile | Save File 
Avg. word size: 5 chars 
r The Key Lines: 1 


eee 


> Embossed Output File 


jee 
Ea 


View | 


The text thus loaded into the text edit control can be edited directly inside it. Don’t forget 


to save the modified file using the “Save File” button. 


In the “The Key” placeholder frame you must provide the Emboss Key on which the 
embossing will be done. In the text box just enter your Key from the keyboard. You will 
see that the text in The Key text box appear as *’s similar to password boxes. Remember 


that the Key must be an integer number with even number of digits. 


Inside the “Embossed Output File” section you need to specify the filename that will 


receive the watermarked output (the Outfile). To select an output file just click on the 
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“Choose...” button in this section and select the file in the dialog box that appears. Inside 
this same section frame you can click the “View” button to view the contents of the 


Outfile in the “Watermarked Output Viewer” window. 


Before you go over to start the watermarking process you should check the “Max. Line 
Length” section for the value that appears. This is 60 by default. You may change to any 


integer number to represent the length that each output line is justified to. 


Once all things are set, you can click on the “Emboss” button to watermark the text file. 


Here is a screen shot of the window during the watermarking process. 


We have been developing text editors 
for many years. In our opinion, a text 
editor should run fast, open files 
fast, be capable of editing files of 
any size, be customizable and offer 


C:\My Documents\EMBOSSING\vb\SAMPLE FILE | _ 
vere 


The progress bar will keep you updated of the amount of work remaining while 


embossing. 
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Verifying 


To verify text documents that were watermarked using this program you need to click on 


the Verify button on the main window toolbar. The following window appears: 


Verify Watermark (DECODE) 


This is the window from where you can verify watermarks embossed into text documents. 
Verification of watermarked require you to provide the watermarked output file (Outfile) 


and the Emboss Key as the inputs to the program. 


Selecting the Outfile is done using the “Load Outfile...”.. command button in the 
Watermarked Output File section. 
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In the “The Key” placeholder frame you must provide the Emboss Key to validate the file. 
This must be the same integer key that was used to emboss the file. In the text box just 
enter your Key from the keyboard. You will see that the text in The Key text box appears 
as *’s similar to password boxes. Remember that the Key must be an integer number with 


even number of digits 


On selecting the Watermarked Outfile, its properties will appear in the “Outfile 


Properties” section. 
Once all settings are over click on the “Verify” button to authenticate the selected text 


document. The following is a snapshot of the window when populated with the Outfile 


and The Key. 


joj x 


¢: Verify Watermark (DECODE) Ee 
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Clicking the “Verify” button will make the program attempt to verify the watermarked 
information embossed into the document. The program will report if the process was 


successful or it failed. 
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The Message Editor 


The “Message Editor” bundled with this software can be invoked by clicking the 


“Message Editor” tool button Message Editor on the main toolbar. The following screen shot 


of a new Message Editor window. 


¢: Message [Infile) Editor 


iA A 


New Message Open Message Saye Iessage 


= cal 


Clear Message Mail Message 


In this window you can create, open and edit text messages. This editor may optionally be 
used for creating text messages or documents prior to watermarking it. It features a 
toolbar with the following tool buttons and corresponding functions: 


New Message: Creates a blank new message. 


Open Message: Opens an existing text document to the edit box. 
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Save Message: Save the text in the edit box to a file. 


Clear Message: Clears the text in the edit box. 


Mail Message: Mail the file using the inbuilt MAPI email client. 
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The MAPI Mail Client 


To access the mail client bundled with this software click on the “Mail” button Mail 
on the main window toolbar. This loads the email client that you can use to send emails. 
The bundled email client uses the Microsoft API to access MAPI compatible mail services. 


The following is a screenshot of the Mail client window. 


¢ E-Mail 


Ts 
Subject: watermarked document... 


Message: 
Hello everyone, 


Attached with this mail is a Watermarked document and 
the Key file that was used to do the marking. 


Bye. 
Debjyoti Das. 


Attachments 
C:\My Documents\EMBOSSINGvb\SAMPLE FILES FOR TESTING \outFil pe 


C:\My Documents\EMBOSSING\vbSAMPLE FILES FOR TESTING \testFil 


Using the mail client is easy and as most conventional mail client are used. In the “To” text 
box you specify the recipient’s mail address. Similarly the “Subject” box will contain the 


text that will appear in the recipient’s mail subject listing. 
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The message body text box contains the body of the email message that will be sent. 


Attachments are handled in the “Attachments” section. 


To send the mail just click on “Send”. You will be asked the Username and Password 


before the client can sign on your mail service provider. 
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Samples 


This section illustrates some sample outputs of the watermarking process. 


Sample 1 


Infile: 
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Max. Line Length: 60 


IPR MANAGEMENT. THIS IMPLEMENTATION USES A SET OF KEYS FOR 


A WATERMARKING T 
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Outfile: 
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Sample 2 


Infile: 


Hello, I am Debjyoti Das doing this project on TEXT 
WATERMARKING. In this project we try to implement a system 
of watermarking a text input. We embed a WATERMARK into the 
input text string in a way that later we can verify if the 
contents of the watermarked text is in vogue with the actual 
WATERMARK symbol that we embossed. 


Key: 123456 


Max. Line Length: 60 


Outfile: 

Hello, I am Debjyoti Das doing this project on TEXT 
WATERMARKING. In this project we try to implement a 
system of watermarking a text input. We embed a WATERMARK 
into the input text string in a way that later we 
can verify if the contents of the watermarked text is in 
vogue with the actual WATERMARK symbol that we 


embossed. 
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Technical 


System Requirements 


Operating System 


Your system should come with a pre-installed Microsoft Windows operating system or 
you may choose to upgrade your operating system to the latest. Below you will find a list 
of those that Text Emboss supports. Please check to make sure that you have one of the 


following operating systems: 


Windows 95 
Windows 98/SE 
Windows ME 
Windows NT 4.0 
Windows 2000 
Windows XP 


Support Systems 
In order to run this program, you should have the Microsoft Visual Basic 6 Runtime files. 
You may obtain the Microsoft Visual Basic 6 Runtime files from the Microsoft website at 


http://www.microsoft.com. Please make sure that the runtime files are installed before 


running this program. 
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Installation 


In order to install the program run SETUP.EXE from the installer folder. You will be 
guided with the installation process. Follow prompts until you are finished installing the 


software. 


Uninstalling 


To uninstall massTasks, 


Step 1: Go to Start > Settings > Control Panel > Add or Remove Programs. 


In some operating systems, you may find - Start > Control Panel 


Step 2: Select the program name in the Add or Remove Programs window and click 


"remove". 
Step 3: If the uninstaller program reports that not all files in the installation directory could 


be removed, then delete the folder into which the program was installed prior to 


uninstalling. 
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PART IV: THE CODE 
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Source Code 


The source code for the software resulting out of this project is in Visual Basic and broken 
into multiple forms and modules. The following window forms and Basic modules were 
involved in the program code: 


Forms 


frmMainMDI.frm 
frmMain.frm 
frmDecode.frm 
frmEdit Watermark.frm 
frmInfileEditor.frm 
frmViewOutput.frm 
frmEmailConfig.frm 
frmMail.frm 
frmLogin.frm 
frmStatus.frm 
frmAbout.frm 


Modules 


e =globalVal.bas 
e InterfaceGlobal.bas 
e modEmbossGlobalProc.bas 


emboss.vbp 


Type=Exe 

Reference=*\G{00020430-0000-0000-C000 

000000000046} #2.0#0#..\..\..\..\WINDOWS\SYSTEM\stdole2.tlb#O0OL 
Automation 
Reference=*\G{420B2830-E718-11CF-893D 
OOA0C9054228}#1.0#0#..\..\..\..\WINDOWS\SYSTEM\SCRRUN.DLL#Microsoft 
Scripting Runtime 
Ob ject={3B7C8863-D78F-101B-B9B5—-04021C009402}#1.2#0; RICHTX32.0CX 
Ob ject={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.0CX 
Object={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0; MSMAPI32.0CX 
Ob ject={831FDD16-—0C5C-11D2-A9FC-O000F8754DA1}#2.0#0; MSCOMCTL.OCX 
Form=frmMain.frm 
Form=frmiInfileEditor.frm 
Module=globalVal; globalVal.bas 


Gl 


hb 


i 
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Module=modEmbossGlobalProc; modEmbossGlobalProc.bas 
Form=frmMail.frm 

Form=frmLogin. frm 

Form=frmEmailConfig.frm 

Form=frmMainMDI.frm 

Module=InterfaceGlobal; InterfaceGlobal.bas 
Form=frmAbout. frm 

Form=frmStatus.frm 
Form=frmDecode. frm 
Form=frmViewOutput.frm 
Module=mdLog; mdLog.bas 
ResFile32="Text_Emboss.RES" 
IconForm="frmMainMDI" 
Startup="frmMainMDI" 
HelpFile="" 
Title="Text Emboss" 
ExeName32="emboss.exe" 
Command32="" 
Name="Text_Emboss" 

HelpContextID="0" 

Description="This program embosses white-spaces into a text message so 
that later it may be verified if the contents of the message has 
changed." 

CompatibleMode="0" 

MajorVer=1 

MinorVer=0 

RevisionVer=20 

AutoIncrementVer=1 

ServerSupportFiles=0 

VersionComments="This program embosses white-spaces into a text message 
so that later it may be verified if the contents of the message has 
changed." 
VersionCompanyName="hoMe" 
CompilationType=0 
OptimizationType=0 
FavorPentiumPro (tm) =0 
CodeViewDebugInfo=0 
NoAliasing=0 
BoundsCheck=0 
OverflowCheck=0 
F1lPointCheck=0 
FDIVCheck=0 
UnroundedFP=0 
StartMode=0 
Unattended=0 
Retained=0 
ThreadPerObject=0 
MaxNumberOfThreads=1 


ml 
m. 
m. 
ml 
aL 
m. 
m 
m. 


frmMainMDLfrm 


VERSION 5.00 


Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" 
Begin VB.MDIForm frmMainMDI 

BackColor = &H8000000C& 

Caption = "MDIFormi" 

ClientHeight = 5250 

ClientLeft = 165 
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OOCOF0283628 } 


OOCOF0283628} 


OOCOF0283628 } 


OO0COF0283628 } 


OO0COF0283628} 


OOCOF0283628 } 


ClientTop 735 
ClientWidth = 8460 
Icon = "frmMainMDI.frx":0000 
LinkTopic = "MDIForm1" 
StartUpPosition = 3 'Windows Default 
Begin MSComctl1Lib. images ImageListl 
Left 4560 
Top 2760 
_ExtentX 1005 
_Extenty 1005 
BackColor —2147483643 
ImageWidth 32 
ImageHeight 32 
MaskColor 12632256 
_Version 393216 
BeginProperty images {2C247F25-8591-11D1-B16A-00C0F0283628 } 
NumListImages = 6 
BeginProperty ListImagel {2C247F27-8591-11D1-Bl16A 
Picture = "frmMainMDI.frx":044A 
Key = "emboss" 
EndProperty 
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A 
Picture = "frmMainMDI.frx":089E 
Key = "exit" 
EndProperty 
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A 
Picture = "frmMainMDI.frx":0CF2 
Key = "decode" 
EndProperty 
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A 
Picture = "frmMainMDI.frx":1146 
Key = "mail" 
EndProperty 
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A 
Picture = "frmMainMDI.frx":1462 
Key = "note" 
EndProperty 
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A 
Picture = "frmMainMDI.frx":18B6 
Key = "help" 
EndProperty 
EndProperty 
End 
Begin MSComctlLib.Toolbar tbToolBar 
Align 1 ‘Align Top 
Height 810 
Left 0 
TabIndex 0 
Top 0) 
Width 8460 
_ExtentX 14923 
_Extenty 1429 
ButtonWidth 2117 
ButtonHeight 1376 
Appearance 1 
Style 1 
ImageList "ImageListl1" 
_Version 393216 
BeginProperty PEC eo {66833FE8—-8583-11D1-B16A-00CO0F0283628 } 
NumButtons 6 
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628 } 
Caption = "Emboss" 
Key = "Emboss" 
ImageKey = "emboss" 
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BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0OF0283628 } 


Caption = "Verify" 
Key = "Verify" 
ImageKey = "decode" 


BeginProperty Button3 {66833FEA-8583-11D1-B16A-00CO0F0283628} 


Caption = "Message Editor" 
Key = "Message Editor" 
ImageKey = "note" 


BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0OF0283628 } 


Caption = "Mail" 
Key a "Mail" 
ImageKey = "mail" 


BeginProperty Button5 {66833FEA-8583-11D1-B16A-00CO0F0283628 } 


Caption = "Help" 
Key = "Help" 
ImageKey = "help" 


BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 


Caption = "Exit" 
Key = "Exit" 
ImageKey = "exit" 


End 
Begin VB.Menu mnuOperate 
Caption = "SOperate" 
Begin VB.Menu mnuOperateEmboss 
Caption = "SEmboss" 
End 
Begin VB.Menu mnuOperateVerify 
Caption = "&Verify" 
End 
End 
Begin VB.Menu mnuView 
Caption = "EView" 
Begin VB.Menu mnuViewToolbar 
Caption = "&Toolbar" 
Checked = ol ‘True 
End 
End 
Begin VB.Menu mnuHelp 
Caption = "&Help" 
Begin VB.Menu mnuHelpContents 
Caption = "Help &Contents..." 
End 
Begin VB.Menu mnuHelpSearch 
Caption = "sSearch for Help on..." 
End 
Begin VB.Menu mnuHelpSep1l 
Caption = eae 
End 
Begin VB.Menu mnuHelpAbout 
Caption = "SAbout..." 
End 
End 
End 
Attribute VB_Name = "frmMainMDI" 
Attribute VB_GlobalNameSpace = Fals 
Attribute VB_Creatable = Fals 
Attribute VB_PredeclarediId = Tru 
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Attribute VB_Exposed = False 


Option Explicit 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" 
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal 
lParam As Any) As Long 
Const EM_UNDO = &HC7 
Private Declare Function OSWinHelp%S Lib "user32" Alias "WinHelpA" (ByVal 
hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any) 
Private Sub MDIForm_Load() 
On Error Resume Next 
Me.Caption = App.Title 
LoadResStrings Me 
App.HelpFile = App.Path & "\Help\HELP.HLP" 
With Me 
" set form geography to last used state 
.-Left = GetSetting(App.Title, "Settings", "MainLeft", 1000) 
.Top = GetSetting(App.Title, "Settings", "MainTop", 1000) 
-Width = GetSetting(App.Title, "Settings", "MainWidth", 6500) 
-Height = GetSetting(App.Title, "Settings", "MainHeight", 6500) 


"this is will set the form to load maximised in case of first use 


-WindowState = GetSetting(App.Title, 


"MainWindowState", vbMaximized) 


End With 


End Sub 


On Error Resume Next 


With Me 
"save form windowstate 
SaveSetting App.Title, 


"Settings", 


"Settings", 


Private Sub MDIForm_Unload(Cancel As Integer) 


"MainWindowState", .WindowState 


If .WindowState <> vbMinimized And .WindowState <> vbMaximized Then 


"save form settings 
SaveSetting App.Title, 
SaveSetting App.Title, 
SaveSetting App.Title, 
SaveSetting App.Title, 
End If 
End With 
End Sub 


Private Sub mnuHelpAbout_Click () 
frmAbout.Show vbModal 
End Sub 


Private Sub mnuHelpContents_Click () 
Call startHelp 
End Sub 


Private Sub mnuHelpSearch_Click () 
Call startHelpSearch 
End Sub 


frmEmboss.Show 
End Sub 
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Private Sub mnuOperateVerify_Click () 
frmDecode. Show 
End Sub 


Private Sub mnuViewToolbar_Click() 
mnuViewToolbar.Checked = Not mnuViewToolbar.Checked 
tbhToolBar.Visible = mnuViewToolbar.Checked 

End Sub 


Private Sub tbToolBar_ButtonClick (ByVal Button As MSComct1lLib.Button) 
On Error Resume Next 


Select Case Button.Key 
Case "Emboss" 
frmEmboss.Show 

Case "Verify" 
frmDecode. Show 

Case "Message Editor" 
frminfileEditor.Show 

Case "Mail" 
frmMail.Show 

Case "Help" 
Call startHelp 

Case "Exit" 

End 

End Select 


Private Sub startHelp() 
Dim nRet As Integer 


"if there is no helpfile for this project display a message to the 
user 


"you can set the HelpFile for your application in the 
"Project Properties dialog 
If Len(App.HelpFile) = O Then 
MsgBox "Unable to display Help Contents. There is no Help 
associated with this project.", vbInformation, Me.Caption 
Else 


On Error Resume Next 
t = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0) 


MsgBox Err.Description 


End If 


End Sub 


Private Sub startHelpSearch () 
"this sub starts the Help Search 
Dim nRet As Integer 


"if there is no helpfile for this project display a message to the 
user 


"you can set the HelpFile for your application in the 
"Project Properties dialog 
If Len(App.HelpFile) = 0 Then 
MsgBox "Unable to display Help Contents. There is no Help 
associated with this project.", vbInformation, Me.Caption 
Else 
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On Error Resume Next 
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0) 
If Err Then 
MsgBox Err.Description 
End If 
End If 
End Sub 
frmMain.frm 
VERSION 5.00 
Object = "{3B7C8863-D78F-101B-B9B5—-04021C009402}#1.2#0"; 
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; 
Begin VB.Form frmEmboss 
Caption = "Emboss" 
ClientHeight 6570 
ClientLeft = 60 
ClientTop = 345 
ClientWidth = 8310 
LinkTopic = "Forml" 
MDIChild = -1l ‘True 
ScaleHeight = 6570 
ScaleWidth = 8310 
WindowState = 2 ‘Maximized 
Begin VB.Frame fraOperations 
Caption = "Operations" 
Height = 6375 
Left = 5880 
TabIndex = 10 
Top a 120 
Width = 2295 
Begin VB.Frame fraInfileAnaReport 
Caption = "Infile Analysis Report" 
Height = 2655 
Left = 0 
TabIndex = 17 
Top = 1560 
Width = 2295 
Begin VB.TextBox txtInfileAnaReport 
Appearance = O 'Flat 
BackColor = &H8000000F& 
BorderStyl = 0 'None 
Height = 2205 
Left a 120 
Locked = -1l ‘True 
MultiLine = -1l ‘True 
TabIndex = 18 
Top = 360 
Width = 2055 
End 
End 
Begin VB.CommandButton cmdEmail 
Caption = "E&mail" 
Height = 495 
Left = 360 
TabIndex = LD 
ToolTipText "Send by Email" 
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Top = 5760 
Width = 1575 
End 
Begin VB. Conan elon cmdEncode 
Caption = "Em&boss" 
Height = 495 
Left = 360 
TabIndex = 11 
Top = 5160 
Width = LOTS 
End 
Begin VB.Frame Frame5 
Caption = "&Max. Line Length" 
Height = 1095 
Left = 0 
TabIndex = 12 
Top = 360 
Width = 2295 
Begin VB.TextBox txtMaxLLength 
Appearance O 'Flat 
Height 285 
Left 1440 
TabIndex 13 
Text "eo" 
Top 720 
Width 735 
End 
Begin VB.Label Labell 
Caption = "Length of a line in the output file (in 
character units) ." 
Height 495 
Left 120 
TabIndex 14 
Top 240 
Width = 2055 
End 
End 
End 
Begin VB.Frame fraOutfile 
Caption = "Embossed Output File" 
Height = 975 
Left = 120 
TabIndex = 6 
Top = 5520 
Width = 5655 
Begin VB. CommandButton cmdOut fileView 
Caption = "&View" 
Height = 255 
Left = 120 
TabIndex = 9 
Top = 600 
Width = BED 
End 
Begin VB. Commence can cmdOut fileChoose 
Caption = "&Choose..." 
Height = 255 
Left = 4440 
TabIndex = 8 
Top = 240 
Width = 1095 
End 
Begin VB.TextBox txtOutfile 
Appearance = O 'Flat 
Height = 285 
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Left = 120 
TabIndex = 7 
ToolTipText = "Filename along with the path to which the 
watermarked output will be stored." 
Top = 240 
Width = 4215 
End 
End 
Begin VB.Frame fraTestfil 
Caption = "The Key" 
Height = 975 
Left = 120 
TabIndex = 4 
Top = 4440 
Width = 5655 
Begin VB.TextBox txtKey 
Appearance = O 'Flat 
Height = 285 
IMEMode = 3 "DISABLE 
Left = 120 
PasswordChar = bieiri 
TabIndex = 5 
ToolTipText = "The filename along with its path that 
contains the watermark." 
Top = 360 
Width = 5415 
End 
End 
Begin MSComDlg. eommomla led CommonDialogl 
Left = 4920 
Top = 0 
_ExtentX = 847 
_Extenty = 847 
_Version = 393216 
End 
Begin VB.Frame fraInfile 
Caption = "Source Input file" 
Height = 4215 
Left = 120 
TabIndex = 0 
Top = 120 
Width = 5655 
Begin VB.CommandButton cmdAnalizeInfile 
Caption = "SAnalize Infile" 
Height = 375 
Left = 120 
TabIndex = 16 
Top = 3720 
Width = 1215 
End 
Begin VB. Cea E a cmdSaveiInfile 
Caption = "&Save File" 
Height = 375 
Left = 4320 
TabIndex = 3 
Top = 3720 
Width = 12S 
End 
Begin VB. Cea een cmdLoadinfile 
Caption = "SLoad File" 
Height = 375 
Left = 3000 
TabIndex = 2 
Top = 3720 
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Width = 1215 
End 
Begin RichTextLib.RichTextBox rtfInfile 
Height = 3255 
Left = 120 
TabIndex = if 
Top = 360 
Width = 5415 
_ExtentX = 9551 
_ExtentyY = 5741 
_Version = 393217 
HideSelection = 0 "False 
ScrollBars = 2 
DisableNoScroll = -1l 'True 
Appearance = 0 
AutoVerbMenu = =1 "True 
Text RIF = S"frmMain.frx":0000 
BeginProperty Font {0BE35203-8F91-11CE-9DE3—-00AA004BB851 } 
Name = "Fixedsys" 
Size = 9 
Charset = 0 
Weight = 400 
Underline = 0 "False 
Italic = 0 "False 
Strikethrough = 0 "False 
EndProperty 
End 
End 
End 
Attribute VB_Name = "frmEmboss" 
Attribute VB_GlobalNameSpace = Fals 
Attribute VB_Creatable = Fals 
Attribute VB_Predeclaredid = Tru 
Attribute VB_Exposed = False 
Option Explicit 
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Private Sub 
String) 


ncode(Infile As String, testfile As String, Outfile As 


Encode subprocedure for Text Emboss 


"Infile is the input file 
"Testfile is watermark secret key value 
"Outfile is the output file 


Dim OutfileNum As Integer 
OutfileNum = FreeFil 
Open Outfile For Output As #OutfileNum 


"Generating secret keys 

Dim success As Boolean 

success = GenerateKeys (testfile) 

If Not success Then 

MsgBox "An error occurred while generating keys. Terminating 
Embossing.", vbCritical 

Exit Sub 

End If 


"Load status window 

frmStatus.Show 

frmStatus.fraStatus.Caption = "Emboss" 
frmStatus.lblStatus.Caption = "Loading file..." 
frmStatus.ProgressBarl.Value = 0 
frmStatus.ZOrder 
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frmStatus.Refresh 


"Loading the Infile to array A$ 

Dim A As String 
this string 

success Loadinfile2Array (Infi 

If Not success Then 


Embossing.", vbCritical 
Exit Sub 
End If 


G 
amy 


"At 
embossed. 
"All 


his point AS has the compl 


multiple blank spaces have 


tartCharPos As Double 
tCharPos is the character 
mbossed will 


Dims 
"star 
to b 
"begin. 

"The value of t 


lin 


his variable wil 


MsgBox "An error occurred while loading Input file. 


"the characters of Infile are loaded into 


le, AS) 


Terminating 


ete text string that must be 


been collapsed. 


position in AS from where the next 


1 by changed by the getNextLin 


function. 
startCharPos 
"Character posi 
"Line Numbers i 


1 
tions in this pr 
n this program s 


Dim currentLineNo As Double 
processed 
curren 
"Charac 
‘Line N 


0 
tions in this pr 
n this program s 


LineNo 
ter posi 
mbers i 


tus window 
.-lblStatus.Caption 
.-ProgressBarl.Value 
.ProgressBarl.Max 
.ZOrder 

-Refresh 


"reset 
frmSta 
frmSta 
frmSta 
frmSta 
frmSta 


"W 


Le 


ANNAN DN ct 


adtecdtctac 


'G 
Di 
Di 


et next line to emboss 
m currentLine As String 
m Key As Double al 


ogram start from l. 
tart from 0. 


"the lin 


number being currently 


ogram start from l. 
tart from 0. 


Embossing..." 
0 
n (A$) 


Di 
Di 


m T As Double 
m embossedLine 


While startCharP 


This is the secret key value that will be used 
"to emboss the current line. 
'This is just supposed to be a copy of Key 

As String 


os < Len(AS) 


currentLine = GetNextLine (A$, startCharPos) 

"At this point, AS is the line that is going in 

"for embossing. 

Write2Log ("Extracted Line: " & currentLine) 

Write2Log ("Extracted Line Length: " & Len(currentLine) ) 
"Getting the next key for embossing 

Key = GetNextKey (current LineNo) 


T = Key 


Write2Log (" 


Key: & Key) 


AdjustLineB4 


Emboss currentLinesS, T, startCharPos, A$ 


"OK. Now th 
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Write2Log ("Adjusted Line: " & currentLine$) 
mbossedLine$ = EmbossLine(currentLines, T) 
Write2Log ("Embossed Line: " & embossedLine$) 


Write20utfil mbossedLineS, OutfileNum 
currentLineNo = currentLineNo + 1 


"update ProgressBarl 

On Error Resume Next 
frmStatus.ProgressBarl.Value = startCharPos 
DoEvents 


Wend 


Unload frmStatus 


Close #OutfileNum 


End Sub 


Private Sub AdjustLineB4Emboss(strLine As String, ByVal T As Double, 
startCharPos As Double, A As String) 


"strLines the sentence string to be embossed 
“TE The secret key to be used to emboss the current line 
"startCharPos - the character position in the array AS from where 


: scanning for next line will start 
"AS — the complete text string that is being embossed. 


'AS should not be modified in this sub. 


"startCharPos may be modified here. 

Dim charCountA As Double "the number of characters in the string 
stored in strLines 

Dim Y As Double "this is supposed to be a copy of charCountA 
Dim wordCountA As Double "the number of words in the string stored in 
strLines 

Dim W As Double "this is supposed to be a copy of wordCountA 
BeginAdjust: 


charCountA = Len(strLine$) 
Y = charCountA 


wordCountA = arrWordCount (strLine$) 
W = wordCountA 


"calculating the number of blank spaces to be embossed into the 

"current line stored in strLine$s 

Dim embossCharCount As Double "this is the number of characters 
that must be embossed 
‘into the line in strLines 

Dim X As Double "this is supposed to be a copy of 
the value in embossCharCount 

embossCharCount = T Mod W 

X = embossCharCount 


"Now 'x' number of blank spaces need to be inserted into the string 
"stored in strLine$. Still. it must be noted that the total length 
‘of the string in strLineS after embedding the spaces must not be 
"more than MAXLLENGTH. 
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'To to implement this adjustment fact, we check if the current 
length 

"of strLineS added to x crosses MAXLLENGTH. 

"If it does not, we have no problem. We return. 

"But if it does, we need to do the real work. 

"We remove the last word in this strLineS and try the same process 
again. 


"ULTIMATELY we must have a string in strLine$ to which x number of 
"of blank spaces can be inserted and still the length of strLines$s 
"remains within MAXLLENGTH. 


"At this point, 

"x: the number of blank spaces to be embedded into strLines 

"y: the number of characters in strLine$. Basically the length of 
strLines. 


"Important: 

‘It is very very important to note here that we are excluding the 
‘last word in strLineS for the time being. So it must be included 
"in the next line that will be embossed. Practically, we are simply 
"moving the last word from the current line to the next line. 

"This is the reason that startCharPos must be modified here and 
"therefore has been passed by reference. 


If X + Y > MAXLLENGTH Then 
"Move the last word in strLineS to the next line 


Dim lastSpaceAt As Double 


"finding the position of the last space in strLine$. 
Dim i As Double 
For i= 1 To Len(strLine$) 

If Mid(strLineS, i, 1) = " " Then lastSpaceAt = i 
Next i 


"exclude the characters at the right of lastSpaceAt from 
strLines 
strLineS = Mid(strLineS, 1, lastSpaceAt - 1) 


"move the startCharPos pointer to the string AS to a position 
"in the left where a space is encountered. 
Dim C As String 


"startCharPos must be currently pointing at a space 
startCharPos = startCharPos - l 
While Mid(AS$, startCharPos, 1) <>" " 
startCharPos = startCharPos - 1 
Wend 


"Yeah! The last character has been moved to the next line 
"Do the whole process again 


GoTo BeginAdjust 
End If 


End Sub 


Private Function EmbossLine(strLine As String, ByVal T As Double) As 


"This function will build up the final embossed string from the 
"string stored in strLine$ and return it to the calling function. 
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'T is the emboss key to be used to determine the number of spaces 


"to be embedded into this line. 


"strLinesS the sentence string to be embossed 


'T 


The secret key to be used to emboss the current line 


"Return Value: Th mbossed string. 


in 


wordCountA 


Ss 


Dim wordCountA As Double "the number of words in the string stored 
trLines 
Dim W As Double 


this is supposed to be a copy of 


Dim retString As String "the string to be returned 


wordCountA = arrWordCount (strLine$) 
W = wordCountA 


"calculating the number of blank spaces to be embossed into the 
"current line stored in strLines 
Dim embossCharCount As Double 'this is the number of characters 


that must be embossed 


‘into the line in strLines 
Dim X As Double "this is supposed to be a copy of the 


value in embossCharCount 


embossCharCount = T Mod W 
X = embossCharCount 


"Now 'x' number of blank spaces need to be inserted into the string 
"stored in strLines. 


"We go on adding a space after each space encountered in strbLines. 
"In all we will insert 'x' number of blank spaces. 


"Since the output line must be justified, we must add additional 


spaces into 


"the string if the character count in the line falls below 


MAXLLENGTH 


Dim TotalSpaces2BInserted As Double "this is the final number of 


spaces that 


‘will be inserted into the 


line. These 


"include the number of 


embossed spaces (x) 


"and the number of spaces to 


make the line 


"justified to MAXLLENGTH 


characters. 


TotalSpaces2BInserted = X 

If Len(strLine$) + TotalSpaces2BInserted < MAXLLENGTH Then 
TotalSpaces2BInserted = MAXLLENGTH - Len(strLine$) 

End If 


Dim i As Double 
Dim intLinePos As Double 'this is the current scan position in the 


line string 


intLinePos = 1 
retString$ = strLine$ 


If W = 1 Then 

"there is only one word in the current line 

"add all blank spaces to the beginning of the line 
For i= 1 To TotalSpaces2BInserted 
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Nex 
Else 
For 


a space 


character 


a non-Space 


Nex 
End If 


EmbossL 
End Functio 


retString 
tL 


a, = 


"move int 


While Mid 
inthLi 


"in case intLinePos has come to the end of the line 


"star 
If in 
Wend 


"now in i 


‘insert a 
Dim strTe 


strTemps 


strTemps 
intLinePo 


retStringS = strTempS & Mid(retString$S, 


"move int 


While Mid 
inthLi 


"in case intLinePos 


"star 
If in 
Wend 
tii 
ine = retS 
n 


$ 


" & re 


LinePos to 


(retStringS, 
nePos intL 


t scanning t 
tLinePos > 


mo As String 


= Mid(retStr 
= strTempS & 
s intLineP 


LinePos to t 


(retStringS, 
nePos intL 


t scanning t 
tLinePos > 


trings 


Private Sub Write20Outfile(A As String, 


tStrings$ 


1 To TotalSpaces2BInserted 


intLinePos, 
inePos + 1 


1) 


<> " W 


he line again from the beginning 


ings, 1, 


os + 1 


he 


in 
ine 


tLinePos, 
Pos + 1 


Len (retString$) 


Then intLinePos 


ntLinePos position in retString$S is a space 


space at the position just after this 


intLinePos) 


intLinePos) 


he line again from the beginning 


ByVal 


Len (retString$) 


Then intLinePos = 


"This subproc. writes the string stored in A$ into 


AS 


e 


"the fil 
Print #OutfileNum, 

End Sub 

Private Sub cmdClose_Click () 
End 

End Sub 

Private Sub cmdDecode_Click () 
frmDecode. Show 
Unload Me 

End Sub 

Priva 
Dim Infile As String 
Infile = getInfil 
If Infile = vbNul 
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1String Then 


represented by OutfileNum 


te Sub cmdAnalizeInfile Click () 


1 


has come to the end of the line 


1 


OutfileNum As Integer) 


the next position in retString$ that is 


next position in retString$ that is 
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Dim msgNoInfile As String 

msgNoInfile = "No Input file found. You may have to 
Input text to " 
msgNol 
t you 
msgNol 
then 
msgNol 
utton 
msgNol 
msgNol 
unexecuted!" 


nfile nfile & "a file. 


msgNol If you have no 


text tha 


nfile nfile & the So 


msgNol e "Just typed into 
File box 
nfile nfile & 
in " 

nfile 
nfile 


msgNol e "you can save it using 


File"™"™ b 


"the same Window. 
"Infile Analysis 


& 
& 


nfile 
nfile 


msgNol 
msgNol 


wills 


MsgBox msgNoInfile, vbOKOnly + vbCritical, 
Infile" 
rtfinfile.SetFocus 
Exit Sub 

If 


End 


G 
) 


ak 
"wit 


control has reached here, then we have th 


h its path in Infiles. 


"Getting file properties 
Dim fso As FileSystemObject 
Set fso CreateObject ("Scripting.FileSystemObject") 


Dim fil As File 

Set fil fso.GetFile(Infile) 
Dim InfileSize As Double 
InfileSize fil.Size 


Dim inFileNum As Integer 

inFileNum = FreeFil 

Open Infile For Input As #inFileNum 

"the file has now been opened for input. 


"Load s 
frmStat 
frmStat 
frmStat 
frmStat 
frmStat 
frmStat 


tatus window 

us .Show 
us.fraStatus.Caption 
us.lblStatus.Caption 
us.ProgressBarl.Value 
us.ZOrder 

us.Refresh 


"Analize Infile" 
"Analizing file... 
0 


wait." 


Di 
Di 
Di 
Di 
Di 
Di 


A As String 
WordCount As Double 
SpaceCount As Double 
Characters As Double 
LineNo As Double 
NonSpaceChars As Do 


= ee ae 


uble 


Do Until 


Line Inpu 


EOF (inFileNum) 
#inFileN 


um, AS 


LineNo + 1 
WordCount + arrWordCount (AS) 

= SpaceCount + arrSpaceCount (AS) 
ters + Len(AS) 


LineNo = 
WordCount 
SpaceCoun 
Characters = Charac 
DoEvents 

Loop 
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App.Title & 


save the 


saved the 


urce Input 


the ""Save 


& vbeCrLft & vbCrLf 


top here 


No 


Infile name 
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Unload frmStatus 

Dim AverageWordSize As Integer 

AverageWordSize = (Characters - SpaceCount) / WordCount 

txtInfileAnaReport = "File Size: " & InfileSize & " bytes" & vbCrLf 
& vbCrLf 

txtInfileAnaReport = txtInfileAnaReport & "Characters: " & 
Characters & vbCrLf & vbCrLf 

txtInfileAnaReport = txtInfileAnaReport & "Words: " & WordCount & 
vbCrLf & vbCrLf 

txtInfileAnaReport = txtInfileAnaReport & "White-spaces: " & 
SpaceCount & vbCrLf & vbCrLf 

txtInfileAnaReport = txtInfileAnaReport & "Avg. word size: " & 
AverageWordSize & " chars" & vbCrLf & vbCrLf 

txtInfileAnaReport = txtInfileAnaReport & "Lines: " & LineNo & 
vbCrLf & vbCrLf 
End Sub 


Private Sub cmdEmail_Click() 


frmEmailConfig.Show 


End Sub 


"This is where the use 


Write2Log (vbCrLf 


"setting the max. 
MAXLLENGTH = Val (t 


Write2Log ("MAXLLE 


'The Input File na 
"using the key val 
Dim Infile As Stri 
Infile = getInfile 


If Infile = vbNull 
Dim msgNoInfil 
msgNoInfile 
Input text to " 
msgNoInfile = 
text that you " 
msgNoInfile = 
then " 
msgNol 
File"" button 
msgNol 
msgNol 
unexecuted!" 


File box 
nfile = 
in Ww 
nfile = 
nfile = 


MsgBox msgNoIn 
Infile" 
rtfInfile.SetF 
Exit Sub 


End If 


Dim Key As String 
Key = getKey 


Debjyoti Das 


Private Sub cmdEncode_Click () 
xr clicks to go in for embossing 


& vbCrLf & 


"Embossing Initiated. Date: " 


(read encoding). 


& Now) 


line length variable 
xtMaxLLength.Text) 


& MAXLLENGTH) 


me (Infile) that 
ue at txtKey. Text 


will be embossed 


ng 
String Then 
e As String 

= "No Input file found. You may have to save the 
msgNoInfile & "a file. If you have not saved the 
msgNoInfile & "just typed into the Source Input 
msgNoInfile & "you can save it using the ""Save 
msgNoInfile & "the same Window." & vbCrLf & vbCrLf 
msgNoInfile & "Encoding will stop here 
file, vbOKOnly + vbCritical, App.Title & ": No 
ocus 
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If Key = vbNullString Then 

Dim msgNoKey As String 

msgNoKey = "Watermark Key not found." & vbCrLf & vbCrLf 
msgNoKey = msgNoKey & "Encoding will stop here unexecuted!" 


MsgBox msgNoKey, vbOKOnly + vbCritical, App.Title & ": No Key" 
txtKey.SetFocus 

Exit Sub 

End If 


Dim Outfile As String 
Outfile = getOutfile 


If Outfile = vbNullString Then 

Dim msgNoOutfile As String 

msgNoOutfile = "Watermarked Output File NAME not found." & 
vbCrLf & vbCrLf 

msgNoOutfile = msgNoOutfile & "Encoding will stop here 
unexecuted!" 


MsgBox msgNoOutfile, vbCritical + vbOKOnly, App.Title & ": No 
Output file" 

txtOutfile.SetFocus 

Exit Sub 

End If 


"If program control has reached here, we can go in for encoding. 
Encode Infile, Key, Outfile 


End Sub 


Private Function getInfile() As String 
"The Input File name (Infile) will be returned by this function. 


'The Input File name (Infile) that will be embossed will be 
"found from the "rtfInfile" Rich Text File object. 

‘Its rtfinfile.Filename property will return the Infile. 
‘In case, rtfInfile.Filename property returns a null string 
"we wil show a message box to save the input text in 
'rtfinfile to a file and then continue. 


Dim strTemp As String 
strTemp = rtfinfile.FileName 


getiInfile = strTemp 
Function 


ea] 


nd 


Private Function getKey() As String 


"Test key value will be found in the text in the "txtKey" 
"text box. 

Dim strTemp As String 

strTemp = txtKey.Text 


getKey = strTemp 


End Function 


Private Function getOutfile() As String 
'The Output File name (Outfile) will be returned by this function. 


"Outfile name will be found in the text in the "txtOutfile" 
"text box. 
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valk al 


Dim strTemp As String 
strTemp = txtOutfile.Text 


getOutfile = strTemp 


End Function 


Private Sub cmdLoadInfile Click () 


this sub, the user is asked to select the Infile 


"that will b mbossed. The file is loaded into the 
"RichTextBox "rtbInfile". 


End 


On Error Resume Next 


CommonDialogl.CancelError = True 
CommonDialogl.DialogTitle = "Open Input File" 
CommonDialogl.ShowOpen 


"If cancel was clicked in the file open dialog box 
"then exit sub. 
"The "cdlCancel" constant is equivalent to the value 32755. 
If Err.Number = cdlCancel Then Exit Sub 


"If program control had reached here then the user selected 
"a file in the file open dialog box and clicked on Open. 
Load the selected fil 


Dim Infile As String 
Infile = CommonDialogl.FileName 


"load the Infile to rtfiInfile 
tfInfile.LoadFile Infile, rtfText 


rtbInfile.LoadFile Infile, rtfRTF 
all cmdAnalizeInfile Click 
ub 


nQ == 


Private Sub cmdOutfileChoose_Click () 


CommonDialogl.DialogTitle = "Select Output file" 
CommonDialogl.ShowOpen 


"If cancel was clicked in the file save dialog box 

"then exit sub. 

"The "cdlCancel" constant is equivalent to the value 32755. 
If Err.Number = cdlCancel Then Exit Sub 


"If program control had reached here then the user selected 
"a file in the file open dialog box and clicked on Open. 
"Load the selected fil 


Note: To load a Rich Text file modify the above statement to: 


Dim testfile As String 
testfile = CommonDialogl.FileName 
txtOutfile.Text = testfil 


End Sub 


Private Sub cmdOutfileView_Click () 
If txtOutfile.Text = vbNullString Then Exit Sub 


frmViewOutput . Show 
End Sub 


Private Sub cmdSavelInfile Click () 
"Save the text in rtfInfile into a disk file. 
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"In case the text in rtfInfile was loaded from a file 
'“rtfInfile.Filename will give the filenam 
"In case the text was not loaded from a file 
'rtfinfile.Filename will return a null string. 

On Error Resume Next 


If rtfinfile.FileName <> vbNullString Then 
CommonDialogl.FileName = rtfiInfile.FileName 
End If 


CommonDialogl.Flags = cdlOFNOverwritePrompt 
CommonDialog1l.DialogTitle = "Save Input File" 
CommonDialogl.ShowSave 


"If cancel was clicked in the file save dialog box 
"then exit sub. 


"The "cdlCancel" constant is equivalent to the value 32755. 


If Err.Number = cdlCancel Then Exit Sub 


"If program control had reached here then the user selected 


"a file in the file save dialog box and clicked on Save. 
"Save the text in rtfInfile into the selected fil 

Dim Infile As String 

Infile = CommonDialogl.FileName 


rtfInfile.SaveFile Infile, rtfText 


"Note: To save a Rich Text file modify the above statem 
: rtfinfile.SaveFile Infile, rtfRTF 
rtfinfile.FileName = Infile 

Call cmdAnalizeInfile_Click 

Sub 


eal 


nd 


Boolean 
'This function loads the characters in the file Infile into 


NCO: 


Private Function LoadInfile2Array(Infile As String, A As String) As 


the 


"string AS. Multiple blank spaces in Infile are collapsed into 


"a single space. Newline spaces are also ignored. 
"Infile: This is the file along with the complete path that 
: the text that must be embossed. 


contains the 


"AS: This is the string into which the content of Infile must be 


loaded, 
: ignoring spaces and newline characters. 


Dim tempChar As String 
Dim LastCharSpace As Boolean 
LastCharSpace = False 


"The lastCharSpace Boolean value indicates if the previous character 


read from 


"the Infile was a blank space. If it is True then the previous 


character that 
"was read from Infile must have been a blank space. 


Dim inFileNum As Integer 


inFileNum = FreeFil 
Open Infile For Input As #inFileNum 


"set the Status window 
frmStatus.ProgressBarl.Max = LOF (inFileNum) 


YT th nd-of-fil in Infil is reached, read in the 
into AS 
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‘ignoring multiple spaces and newline characters. 


Dim i As Double "the character count 


Do Until EOF (inFileNum) 
"read characters from Infile & append them to AS. 
tempChar$ = Input$(1, #inFileNum) 


"Converting Newlines and Tabs to space characters 


"Note: 

: vbCr -> Chr (13) -—> Carriage return character 

: vbLft —-> Chr (10) -—> Linefeed character 

’ vbCrLf —-> Chr(13) + Chr(10) -> Carriage return-linefeed 
combination 

' vbNewLine -> Chr(13) + Chr(10) -> Platform-specific new line 
character; whichever is appropriate for current platform 

! vbTab —2-Chr (9) —> Tab character 

If tempChar$S = vbCr Or tempChar$ = vbLf Or tempCharS = vbCrLf Or 
tempCharS = vbTab Or tempCharS = vbNewLine Then 


tempChar$ = " " 
End If 
"Note: Newline character in C/C++ is represented with "\n". 
If tempChar$ = " " Then "We have encountered a space 
character. 
If LastCharSpace = False Then 


The previous character read in from Infile was not a space. 
"Take this space into consideration. 

AS = AS & tempChars 

LastCharSpace = True 


Else 
a 


The previous character read in from Infile was a space. 
"So ignore this space and continue with the next character 


in Infile. 


"DO NOTHING 
"NOOP 
End If 


se 
This is a non-space or a non-newline character. Take this. 
AS = AS & tempChar$s 
LastCharSpace = False 
End If 


- 


‘refresh statusbar 
i=id¢+l 
On Error Resume Next 
frmStatus.ProgressBarl.Value = i 
DoEvents 

Loop 


Close #inFileNum 
LoadiInfile2Array = True 
End Function 


Private Function GetNextLine(A As String, ByRef startCharPos As Double) 
As String 
'This function will return the next line to b mbossed. 


'THE NEXT LINE is equivalent to the number of complete words that 
"can be extracted from AS limited to MAXLLENGTH characters. 
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"startCharPos is the position from where the characters are to be ripped 
for the 
"line. The characters are being ripped from AS. 


"Important: 
"Character positions in this program start from 1. 
"Line Numbers in this program start from 0. 


"When this function exits, the value of charStartPos must be the 
"character position from where the next line will be ripped when 
"this function is called again. 


"AS is the string from where characters are to be ripped and 
returned. 


he number of characters that must be returned must be greater than 
AXLLENGTH. 

n case the last word in the line that was ripped is incomplete we 
acktrack to the previous space character in the line and exclud 

he incomplete word. 


toOoHeH 


"charStartPos is the character position in A$ from where scanning 
"must start. 


"excluding trailing spaces. Only a single space character may exist. 
"This is because the string in AS must have already been space-— 
collapsed. 

"If this is not the case, i.e., if there are multiple spaces 
starting 
"at charStartPos the EMBOSSING process could fail or even return a 
"wrongly embossed output. 
"The good news is, this is the reason why I put this GOTO FLAG here 
so that 
"even if multiple spaces occur starting at startCharPos in AS, they 
all will 
"be excluded. This however may not be of help in providing a proper 
output in 
"all possible cases of input. 


OK_IGNORE_TRAILING_SPACES: 


E 


If Mid(AS$, startCharPos, 1) = " " Then 
startCharPos = startCharPos + 1 
GoTo OK_IGNORE_TRAILING_SPACES 
End If 


‘at this position "startCharPos" is pointing at a nonspace 

"character in AS. Ripping the next line starts from here. 

' 

Dim retString As String 'the string to be returned to the calling 
function. 


If startCharPos + MAXLLENGTH - 1 > Len(AS) Then 
"there are not as many characters to be left to be read from AS. 
"read all characters till the end of the string AS. 

retStringS = Mid(AS, startCharPos) 

retString$ = Trim(retString$) 

GetNextLine = retString$ 

startCharPos = Len(A$) + 1 

"embossing has finished 


Else 
"read the next few words within MAXLLENGTH characters. 
If Mid(AS$, startCharPos + MAXLLENGTH, 1) = " " Then 
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"extract the next MAXLLENGTH characters from A$ 
retString = Mid(AS, startCharPos, MAXLLENGTH) 
retStringS = Trim(retString$) 
GetNextLine = retString$ 
startCharPos = startCharPos + MAXLLENGTH 
"startCharPos should now point at a space 
Else 
"the last word within the MAXLLENGTH characters is not complete. 
"exclude the last word. Move to the last space within MAXLLENGTH 
"characters. 
Dim i As Double 
1 = startCharPos 
Dim lastSpacePos As Double 
For i = startCharPos To startCharPos + MAXLLENGTH — 
If Mid(AS, i, 1) = " " Then lastSpacePos = i 
Next i 
"the character to which lastSpacePos is pointing at is a 
"SPACE character. 
i = lastSpacePos - startCharPos 
retStringS = Mid(AS, startCharPos, i) 
GetNextLine = retString$ 
startCharPos = startCharPos + i 
"startCharPos should now point at a space 
End If 
End If 


End Function 


Me.Icon = 


Private Sub Form_Load() 


frmMainMDI.Icon 
"set default maximum line 


txtMaxLLength.Text = 


End Sub 


Private Sub Form_Res 
On Error Resume 


fraOperations.Left = 


default LLENGTH 


ize() 
Next 


Me.Width - 2520 


fraOperations.H 


cmdEmail.Top = 


raInfile.Width 


ight = Me.Height 


= Me.Width - 2745 


raInfile.Height 
tfinfile.Width 
tfInfile.Height 
mdSaveInfile.L 


= Me.Height - 2760 


600 


cemdEncode.Top = fraOperations.Height - 1215 
fraOperations.Height - 615 


= fraInfile.Width —- 240 


= fraInfile.Height 
RES 


mdSaveInfile.To 


mdLoadInfile.Le 
mdLoadInfile.To 
mdAnalizeInfil 


aaQagaqanwh hr 


p = fraInfile.Height 
ft = fraInfile.Width 
p = fraInfile.Height 


fraTestfile.Widt 
fraTestfile.Top 


fraInfile.Width - 


-Top = cmdLoadinfile. 


h = fraInfile.Width 


= Me.Height 2535 
raTestfil 


txtKey.Width = f 


fraOutfile.Width 
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= fraTestfile.Width 


949 
1335 
=, 4:95) 
= 2655 
=) 495 
Top 


-Width -— 240 


length in txtMaxLLength 


90/129 


Text Emboss: Watermarking for Text 


fraOutfil 

cmdOut fileChoos 

txtOutfile.Width 
End Sub 


ft = fraOutfile.Width - 1215 


Private Sub tx 
cmdEncode. 
End Sub 


Private Sub tx 
cmdEncode. 
End Sub 


Private Sub tx 
cmdEncode. 
End Sub 


Private Sub tx 


"this will 


.Top = Me.Height 1455 
L 


fraOutfile.Width - 1440 


tKey_GotFocus () 
Default = True 


tKey_LostFocus () 
Default = False 


tMaxLLength_GotFocus () 
Default = True 


tMaxLLength_KeyPress (KeyAscii As Integer) 


allow only numbers to be entered into the text box 


If KeyAsci 
End Sub 
Private Sub tx 


cmdEncode. 
End Sub 


Private Sub tx 
mdOutfileView.Default = True 
End Sub 


Private Sub tx 
mdOutfileView.Default = False 
End Sub 


i < 48 Or KeyAscii > 57 Then KeyAscii = 0 


tMaxLLength_LostFocus () 
Default = False 


tOutfile_GotFocus () 


tOutfile_LostFocus () 


frmDecode.frm 


VERSION 5.00 


Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; 
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; 
Begin VB.Form frmDecode 
Caption = "Verify Watermark (DECODE)" 
ClientHeight = 6570 
ClientLeft = 60 
ClientTop = 345 
ClientWidth = 8280 
LinkTopic = "Forml" 
MDIChild = +l "TERue 
ScaleHeight = 6570 
ScaleWidth = 8280 
Begin MSComDlg.CommonDialog CommonDialogl 
Left = 7320 
Top = 0 
_ExtentX = 847 
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"RICHTX32.0CX" 
"COMDLG32.0CX" 
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_Extenty = 847 
_Version = 393216 
End 
Begin VB.Frame fraOperations 
Caption = "Operations" 
Height = 6375 
Left = 5880 
TabIndex 5 
Top = 120 
Width = 2295 
Begin VB.CommandButton cmdDecode 
Caption = "&Verify" 
Height = 495 
Left = 360 
TabIndex = 9 
Top = 5160 
Width = 1575 
End 
Begin VB.CommandButton cmdEmail 
Caption = "E&mail" 
Height = 495 
Left = 360 
TabIndex = 8 
ToolTipText = "Send by Email" 
Top = 5760 
Width = Lor 
End 
Begin VB.Frame Framel 
Caption = "Outfile Properties" 
Height = 3375 
Left = 0) 
TabIndex = 6 
Top = 360 
Width = 2295 
Begin VB.TextBox txtOutfileProperties 
Appearance = O 'Flat 
BackColor = &H8000000F& 
BorderStyl = O 'None 
Height = 2805 
Left = 120 
Locked oe Sh hare 
MultiLine = -1l 'True 
TabIndex = 7 
Text = "frmDecode. frx":0000 
Top = 480 
Width = 2055 
End 
End 
End 
Begin VB.Frame fraTestfil 
Caption = "The Key" 
Height = 855 
Left = 120 
TabIndex = 3 
Top = 5640 
Width = 5655 
Begin VB.TextBox txtTestfile 
Appearance = O 'Flat 
BeginProperty Font 
Name = "Arial" 
Size = 9 
Charset = ) 
Weight = 400 
Underline = 0) "False 
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Italic = 0 "False 
Strikethrough = 0 "False 
EndProperty 
Height = 330 
IMEMode = 3 "DISABLE 
Left = 120 
PasswordChar = rl 
TabIndex = 4 
Top = 360 
Width = 5415 
End 
End 
Begin VB.Frame fraOutfile 
Caption = "Watermarked Output File (OUTFILE)" 
Height = 5415 
Left = 120 
TabIndex = 0 
Top = 120 
Width = 5655 
Begin VB.CommandButton cmdLoadOutfile 
Caption = "SLoad Outfile..." 
Height = 375 
Left = 4320 
TabIndex = 2 
ToolTipText = "Select the Watermarked Output File 
(Outfile)" 
Top = 4920 
Width = T2415 
End 
Begin RichTextLib.RichTextBox rtfOutfile 
Height = 4455 
Left = 120 
TabIndex = 1 
Top = 360 
Width = 5415 
_ExtentX = 9.55.1 
_Extenty = 7858 
_Version = 393217 
ReadOnly = = True 
ScrollBars = 3 
DisableNoScroll = -1 ‘True 
Appearance = 0 
TextRIF = S"frmDecode.frx":000E 
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851 } 
Name = "Fixedsys" 
Size = 9 
Charset = 0 
Weight = 400 
Underline = 0 "False 
Italic = 0 "False 
Strikethrough = 0 "False 
EndProperty 
End 
End 
End 
Attribute VB_Name = "frmDecode" 
Attribute VB_GlobalNameSpace = Fals 
Attribute VB_Creatable = Fals 
Attribute VB_Predeclaredid = Tru 
Attribute VB_Exposed = False 
"Program Subject: Encoder for Text Watermarking: EMBOSSING 
"Programming Language: Visual Basic 6.0 
Option Explicit 
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Private Function Decode (Outfile As String, 
Boolean 
"Decode subprocedure to Text Watermarking: 


"Return Value: 


the 


Emboss: Watermarking for Text 


calling function. If the decoding results in 


Outfile 


a True value is returned. 


'Testfile is the Emboss Key 
"Outfile is the file containing the WATERMARKED text. 


processed 


case 


Curr 


func 


Dim strDecodeLine As String 'the line string being decoded 


"Generating secret keys 
Dim success As Boolean 
success = GenerateKeys (testfile) 


This functions returns a Boolean value 


testfile As String) 


EMBOSSING 


As 


(True or False) to 


a VALID 


If Not success Then MsgBox "An error occurred while generating keys. 
Terminating Decoding.", vbCritical 


Dim currentLineNo As Integer "the line number being currently 


currentLineNo = 0 


"Character positions in this program start from 1. 


"Line Numbers in this program start from 0. 


Dim Key As Integer '1 


‘opening Outfile 

‘we'll read the Outfile line-by-lin 
Dim OutfileNum As Integer 

OutfileNum = FreeFil 

Open Outfile For Input As #OutfileNum 


"Get next line for decode to strDecodeLine 


'This is the temporary storage for the next lin 


to be decoded. 


his is the secret key value that was used 
"to emboss the current line. 
Dim T As Integer 'This is just supposed to be a copy of Key 


In 


"it may have been extracted even before the complete decoding of the 


ent line 
Dim strNextLineTemp As String 


Dim retValue As Boolean "the value to b 


Do While Not EOF (OutfileNum) 


returned 


"strNextLineTempS may have been populated by the DecodeLine 


tion 


"In that case, it will contain the next line to decode. 


If strNextLineTempS <> vbNullString Then 
strDecodeLineS = strNextLineTemp$ 
strNextLineTemp$ = vbNullString 

Else 
"Get next line for decoding to strDecodeLine 
strDecodeLineS = getNextLine2Decode (Out fileNum) 
strNextLineTemp$ = vbNullString 

End If 


If Len(strDecodeLinesS) <> MAXLLENGTH Then 
retValue = Fals 
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Exit Do 
End If 
If Len(strDecodeLine$) = 0 Then GoTo CurrentLineScanFinish 


"Getting the next key for decoding 
Key = GetNextKey (current LineNo) 


T = Key 

"OK. Now the line strDecodeLineS is going in for decoding. 

retValue = DecodeLine(strDecodeLines$, T, OutfileNum, 
strNextLineTemp$S) 

If retValue = False Then Exit Do 


‘an invalid line has been found in Outfile. 


CurrentLineScanFinish: 
"Current line has been scanned 
currentLineNo = currentLineNo + 1 
Loop 


Close #OutfileNum 


Decode = retValu 


End Function 


Private Function getNextLine2Decode (OutfileNum) As String 
"this function reads a line from OutfileNum 
Dim strTemp As String 


Line Input #OutfileNum, strTemps 


getNextLine2Decode = strTemp$ 
End Function 


OutfileNum As Integer, strNextLineTemp As String) As Boolean 
"This function will decode the validity of the line stored in 


' strDecodeLineS in accordance to the key in the variable T. 


"strDecodeLines the line to be decoded 


Private Function DecodeLine(strDecodeLine As String, T As Integer, 


'T — the key value for the current line. This is the key with which this 


: line must have been embossed. 


‘Out fileNum The file being decoded. This pointer was needed here 


because 

' we may need to call the getNextLine2Decode() function to get 
: the next line while decoding the current line. 
"strNextLineTemp$ This string variable will return the next line 
string 

: this comes to use is the next line from the file has 
been 


: read from this function. This variables value 


is 


then used by 


: the calling function as the next line to decode. It 


is important 
' 


to note that, in case, the next line has been read 


from 

: outfile in the course of this function, then this 
variable 

: should hold the complete line of string of the next 
line 


: when this function returns. 
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"Return Value: 


: True —- the line is valid and in accordance with the key T 
: False —- the line is invalid and not in accordance with the key T 
Dim wordCountA As Integer "the number of words in the string 
stored in strDecodeLines 
Dim W As Integer "this is supposed to be a copy of 
wordCountA 
Write2Log ("Decode Line: " & strDecodeLine$) 


wordCountA = arrWordCount (strDecodeLine$) 
W = wordCountA 


Write2Log ("W: " & W) 
Dim blankCountA As Integer 'the number of Space characters found in 
"this line in strDecodeLines 
Dim B As Integer "this is supposed to be a copy of 
blankCountA 


blankCountA = arrSpaceCount (strDecodeLine$s) 
B = blankCountA 


Write2Log ("B: " & B) 


"Now, W is the number of words found in strDecodeLines 
'B is the number of blank spaces found in strDecodeLines 


'T is the secret key with which this line must have been encoded. 


"calculating the number of blank spaces that must have been 
"embossed into the current line stored in strDecodeLines. 
"This value is T mod W. 
Dim embossCharCount As Integer 'this is the number of characters 
that must be embossed 


into the line in strDecodeLine$S 
this is supposed to be a copy of 


Dim X As Integer 
the value in embossCharCount 


embossCharCount = T Mod W 
X = embossCharCount 
Write2Log ("X: " & X) 


strNextLineTempS = getNextLine2Decode (Out fileNum) 


"Calculating the number of characters in the first word in 

"the line stored in strNextLineTemp$s 

Dim C As Integer "character count of the first word in the next 
line 

C = getFirstWordCharCount (strNextLineTemp$S) 


If B (W 1) + X Then 
DecodeLine = Tru 

ElseIf B > (W - 1) + X And B - (W - 1) - X < C Then 
DecodeLine = Tru 

ElseIf LastWordAdjusted(strDecodeLineS, C, T) Then 
DecodeLine = Tru 

Else 
DecodeLine = Fals 

End If 
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End Function 


Private Function LastWordAdjusted(strDecodeLine As String, 
nextWordLength As Integer, T As Integer) As Boolean 
"strDecodeLine$ - string being decoded 

"nextWordLength - length of next word 

'T - key for the current line 


"This function checks if the next word (i.e., the first word of the 
"next line could have been included in this line. We have the langth 
‘of the next word in "nextWordLength". 


Lass 


"Here we try to simulate what we did in the AdjustB4Emboss 
"subprocedure and check if it really could not include the next 
"next word in the current line. 


Dim strCurrentLineTemp As String 
strCurrentLineTemp = strDecodeLin 


CollapseMultipleSpaces strCurrentLineTemp$ 
"now strCurrentLineTemp$ contains no multiple consecutiv 
"blank spaces. 


Dim wordCountA As Integer "the number of words in the string 
stored in strCurrentLineTemp$s 
wordCountA = arrWordCount (strCurrentLineTemp$) 


"if the next word is appended to this line the word count 
"would increment by 1. 
wordCountA = wordCountA + 1 


"the total length of the would be, the length now + a white space 
(1) + length of the next word 

Dim charCountA As Double "the number of characters in the string 
stored in strCurrentLineTemp$ 
charCountA = Len(strCurrentLineTemp$) 
charCountA = charCountA + 1 + nextWordLength 


"the number of characters that would have to b mbossed 
"if the next word was in the current line 

Dim embossCharCount As Double 

embossCharCount = T Mod wordCountA 


H 


£ embossCharCount + charCountA > MAXLLENGTH Then 
"the last word was INDEED moved to the next line 


LastWordAdjusted = True 
Else 

LastWordAdjusted = False 
End If 


End Function 


Private Sub cmdClose_Click () 
End 
End Sub 


Private Sub cmdDecode_Click () 
"This is where the user clicks to go in for decoding. 


Write2Log (vbCrLf & vbCrLf & "Auth. Initiated. Date: " & Now) 
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"The Embossed Output File name (Outfile) that will be decoded 
Dim Outfile As String 
Outfile = getOutfile 


If Outfile = vbNullString Then 
Dim msgNoOutfile As String 
msgNoOutfile = "No Embossed Output file found." & vbCrLf & 


vbCrLf 
msgNoOutfile = msgNoOutfile & "Decoding will stop here 
unexecuted!" 


MsgBox msgNoOutfile, vbOKOnly + vbCritical, App.Title & ": No 
Embossed Outfile" 

Exit Sub 

End If 


Dim testfile As String 
testfile = getWatermarkfile 


If testfile = vbNullString Then 

Dim msgNoTestfile As String 

msgNoTestfile = "Emboss Key not found." & vbCrLf & vbCrLf 
msgNoTestfile = msgNoTestfile & "Decoding will stop here 
unexecuted!" 


MsgBox msgNoTestfile, vbOKOnly + vbCritical, App.Title & ": No 
Watermark Testfile" 

Exit Sub 

End If 


"If program control has reached here, we can go in for decoding. 


"extracting MAXLLENGTH from Outfile. 

"this is the length in characters that a line in the embossed 
"document is justified to. 

Dim OutfileNum As Integer 

OutfileNum = FreeFil 
Open Outfile For Input As #OutfileNum 
Dim strLine As String 
Line Input #OutfileNum, strLines 
Close #OutfileNum 
MAXLLENGTH = Len(strLine$S) 


Dim retValue As Boolean 
retValue = Decode (Outfile, testfile) 
If retValue = True Then 
MsgBox "Success. The Outfile seems to be in accordance with the 
Watermark.", vbOKOnly + vbInformation, App.Title & " : Success Verified" 
Else 
MsgBox "Falied. The Outfile seems to have FAILED the 
verification test.", vbOKOnly + vbInformation, App.Title & " : Fail 
Verified" 
End If 
End Sub 


Private Sub cmdEmail_Click() 
frmMail.Show 
End Sub 


Private Sub cmdLoadOutfile_Click () 
"In this sub, the user is asked to select the Watermarked Outfile 
'The file is loaded into the TextBox "rtfOutfile". 
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"Later while decoding starts, the file with its path to decode 
"may be found from the rtfOutfile.Filename property. 


On Error Resume Next 


CommonDialogl.CancelError = True 
CommonDialogl.DialogTitle = "Open Watermarked Outfile" 
CommonDialogl.ShowOpen 


"If cancel was clicked in the file open dialog box 

"then exit sub. 

"The "cdlCancel" constant is equivalent to the value 32755. 
If Err.Number = cdlCancel Then Exit Sub 


"If program control had reached here then the user selected 
‘a file in the file open dialog box and clicked on Open. 
Load the selected fil 


Dim Outfile As String 
Outfile = CommonDialogl1.FileName 


"load the Outfile to rtfOutfile 
rtfOutfile.LoadFile Outfile, rtfText 
' 

' 


Note: To load a Rich Text file modify the above statement to: 
rtbOutfile.LoadFile Outfile, rtfRTF 


"Load Outfile properties 
Call LoadOutfileProps 


End Sub 


Private Function getOutfile() As String 

"The Watermarked Output File name (Outfile) will be returned by this 
function. 

getOutfile = rtfOutfile.FileName 


End Function 


Private Function getWatermarkfile() As String 
"The Key value will be returned by this function. 


"the key will be found in the Tag property of "txtTestfile" 
"text box. 

Dim strTemp As String 

strTemp = txtTestfil 


getWatermarkfile = strTemp 


End Function 


Private Sub Form_Load() 
On Error Resume Next 


Me.Icon = frmMainMDI.Icon 
rtfOutfile.RightMargin = 99999 


End Sub 


Private Sub Form_Resize() 
On Error Resume Next 
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fraOperations.Left Me.Width - 2520 
fraOperations.Height = Me.Height 600 
cmdDecode. Top fraOperations.Height - 1215 
cmdEmail.Top fraOperations.Height - 615 


fraOutfile.Width Me.Width — 2745 
fraOutfile.Height = Me.Height 1560 
rtfoutfile.Width fraOutfile.Width - 240 

rt fOutfile.Height fraOutfile.Height - 949 
cmdLoadOutfile.Left fraOutfile.Width - 1335 


emdLoadOutfile.Top = fraOutfile.Height - 495 

fraTestfile.Top = Me.Height 1335 

fraTestfile.Width = fraOutfile.Width 

txtTestfile.Width = fraTestfile.Width - 240 
End Sub 


Private Sub LoadOutfileProps () 


"This sub loads the property sheet of the loaded Outfile. 


Dim fso As FileSystemObject 
Set fso = CreateObject ("Scripting.FileSystemObject") 
Dim fil As File 
Set fil = fso.GetFile(rtfOutfile.FileName) 
txtOutfileProperties = "Siz " & f1i1.Size & " bytes." 
txtOutfileProperties = txtOutfileProperties vbCrLf & vbCrLf 
txtOutfileProperties = txtOutfileProperties "Date Created: " & 
fil.DateCreated 
txtOutfileProperties = txtOutfileProperties vbCrLf 
txtOutfileProperties = txtOutfileProperties "Date Accessed: " & 
fil.DateLastAccessed 
txtOutfileProperties = txtOutfileProperties vbCrLf 
txtOutfileProperties = txtOutfileProperties "Date Modified: " & 
fil.DateLastModified 
txtOutfileProperties = txtOutfileProperties vbCrLf & vbCrLf 
txtOutfileProperties = txtOutfileProperties "Path: " & fil.Path 
End Sub 
Private Sub txtTestfile_GotFocus () 
cmdDecode.Default = True 
End Sub 
Private Sub txtTestfile_LostFocus () 
cmdDecode.Default = False 
End Sub 


frmInfileEditor.frm 


VERSION 5.00 
Object = "{3B7C8863-D78F-101B-B9B5—-04021C009402}#1.2#0"; 
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB} #1.2#0"; 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1} #2.0#0"; 
Begin VB.Form frmInfileEditor 

Caption = "Message (Infile) Editor" 
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ClientHeight a 
ClientLeft = 
ClientTop = 
ClientWidth = 
LinkTopic a 
MDIChild = 
ScaleHeight = 
ScaleWidth = 
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4830 

60 

345 

7695 
"Forml" 
sl. "True 
4830 

7695 


Begin MSComDlg. CommonDialog CommonDialogl 


Left 
Top 
ExtentX 
_ExtentyY 
_Version 


6360 
240 
847 
847 
393216 


Begin MSComct1lLib. Pe ge lo ImageListl 


Left 6960 
Top 120 
_ExtentX 1005 
_Extenty 1005 
BackColor -—2147483643 
ImageWidth 32 
ImageHeight 32 
MaskColor 12632256 
_Version 393216 
BeginProperty images {2C247F25-8591-11D1-B16A-00C0F0283628 } 
NumListImages = 5 
BeginProperty ListImagel {2C247F27-8591-11D1-B16A-00C0OF0283628 } 
Picture = "frmInfileEditor. frx":0000 
Key = "save" 
EndProperty 
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628 } 
Picture = "frmInfileEditor.frx":0454 
Key ca "new" 
EndProperty 
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628 } 
Picture = "frmInfileEditor.frx":08A8 
Key = "clear" 
EndProperty 
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628 } 
Picture a "frmInfileEditor.frx":0CFC 
Key a "mail" 
EndProperty 
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628 } 
Picture = "frmInfileEditor. frx":1150 
Key = "open" 
EndProperty 
EndProperty 
End 
Begin MSComctlLib. ier Dee Toolbarl 
Align 1 ‘Align Top 
Height 810 
Left 0 
TabIndex ul 
Top 0 
Width 7695 
_ExtentX 13573 
_Extenty 1429 
ButtonWidth 2090 
ButtonHeight 1376 
Appearance 1] 
Style dl. 
ImageList "ImageListl1" 
_Version 393216 
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BeginProperty Pores {66833F] 


E8—8583-11D1-B16A-00C0F0283628 } 


NumButtons 6 
BeginProperty Buttonl {66833FEA-8583-11D1-B16A-00C0OF0283628 } 
Caption "New Message" 
Key "New Message" 
ImageKey = "new" 
EndProperty 
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0OF0283628 } 
Caption = "Open Message" 
Key = "Open Message" 
ImageKey = "open" 
EndProperty 
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0OF0283628 } 
Caption = "Save Message" 
Key = "Save Message" 
ImageKey = "save" 
EndProperty 
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0OF0283628 } 
Style = 3 
EndProperty 
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0OF0283628 } 
Caption = "Clear Message" 
Key = "Clear Message" 
ImageKey = "clear" 
EndProperty 
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628 } 
Caption = "Mail Message" 
Key = "Mail Message" 
ImageKey = "mail" 
EndProperty 
EndProperty 
End 
Begin RichTextLib. Rie Ee ee os rtbiInfile 
Height = 3975 
Left = 0 
TabIndex = 0 
Top = 840 
Width = 7695 
_ExtentX = 13573 
_Extenty = 7011 
_Version = 393217 
ScrollBars = 3 
DisableNoScroll = -1 ‘True 
Appearance = 0 
AutoVerbMenu = -1 ‘True 
TextRIF = S"frmInfileEditor.frx":15A4 
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851 } 
Name = "Fixedsys" 
Size = 9 
Charset = 0 
Weight = 400 
Underline = 0 "False 
Italie = 0 "False 
Strikethrough = 0 "False 
EndProperty 
End 
End 
Attribute VB_Name = "frmInfileEditor" 
Attribute VB_GlobalNameSpace = Fals 
Attribute VB_Creatable = Fals 
Attribute VB_PredeclarediId = Tru 
Attribute VB_Exposed = False 
'This form displays the contents of the file whose nam 


"can be found in the frm 
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Private Sub Form_Load() 


On Error Resume Next 
Me.Icon = frmMainMDI.Icon 


Toolbarl.Buttons.Item(3).Enabled = False 
End Sub 


Private Sub Form_Resize() 
On Error Resume Next 


rtbiInfile.Top = Toolbarl.Height + 30 
rtbinfile.Width = Me.Width - 120 
rtbInfile.Height = Me.Height 1260 


End Sub 


Private Sub Form_Unload(Cancel As Integer) 
On Error Resume Next 


H 


f Toolbarl.Buttons.Item(3) .Enabled Then 
the message is unsaved. prompt user. 
Dim msg As String 
Dim retval As VbMsgBoxResult 
msg = "Would you like to save the current message?" 
retval = MsgBox(msg, vbYesNo, "Save Message") 
If retval = vbYes Then 
Call SaveMessage 
End If 
nd If 


Fl 


End Sub 


Private Sub rtbInfile_ Change () 
Toolbarl.Buttons.Item(3).Enabled = True 
End Sub 


Private Sub Toolbaril_ButtonClick (ByVal Button As MSComct1lLib.Button) 
On Error Resume Next 


Select Case Button.Key 
Case "New Message" 
Call NewMessage 
Case "Open Message" 
Call OpenMessage 
Case "Save Message" 
Call SaveMessage 
Case "Clear Message" 
Call ClearMessage 
Case "Mail Message" 
Call MailMessage 
End Select 


End Sub 


Private Sub NewMessage() 
‘open a new messag 


If Toolbarl.Buttons.Item(3) .Enabled Then 
Dim msg As String 
Dim retval As VbMsgBoxResult 
msg = "Would you like to save the current message?" 
retval = MsgBox(msg, vbYesNoCancel, "Save Message") 
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If retval = vbCancel Then 
Exit Sub 

ElseIf retval = vbYes Then 
Call SaveMessage 
ElseIf retval = vbNo Then 
"do nothing 

End If 

End If 


Call ClearMessage 
rtbiInfile.FileName = vbNullString 


"disable the save button in the toolbar 
Toolbarl.Buttons.Item(3).Enabled = False 


End Sub 


Private Sub SaveMessage() 
"save message 


On Error Resume Next 


If rtbiInfile.FileName <> vbNullString Then 
rtbInfile.SaveFile rtbInfile.FileName, rtfText 

Else 
CommonDialogl.Flags = cdlOFNOverwritePrompt 
CommonDialogl.DialogTitle = "Save Message (Infile)" 
CommonDialogl.ShowSave 


"If cancel was clicked in the file save dialog box 

"then exit sub. 

"The "cdlCancel" constant is equivalent to the value 32755. 
If Err.Number = cdlCancel Then Exit Sub 


Dim Infile As String 
Infile = CommonDialogl.FileName 
rtbInfile.SaveFile Infile, rtfText 
rtbInfile.FileName = Infile 

nd If 


ca] 


Toolbarl.Buttons.Item(3).Enabled = False 
End Sub 

Private Sub ClearMessage () 

rtbInfile.Text = vbNullString 

End Sub 


Private Sub MailMessage() 
Load frmMail 
frmMail.txtAttachl = rtbInfile.FileName 
frmMail.Show 

End Sub 


Private Sub OpenMessage() 
"open message from a text file. 


Call NewMessage 


‘load a file to rtbInfile 
CommonDialogl.CancelError = True 
CommonDialogl.DialogTitle = "Open Message (Infile)" 
CommonDialogl.ShowOpen 


"If cancel was clicked in the file open dialog box 
"then exit sub. 
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"The "cdlCancel" constant is equivalent to the value 32755. 


If 


Err.Number = 


cdlCancel Then 


Exit Sub 


"If program control had reached her 


then the user selected 


"a file in the file open dialog box and clicked on Open. 


Load the selected fil 


Dim Infile As String 
Infile = 


rtbInfile.LoadFile Infile, 
' 
' 


‘load the Infile to rtfInfile 


CommonDialog1.FileName 


rtfText 


Note: To load a Rich Text file modify the above statement to: 
rtbInfile.LoadFile Infile, rtfRTF 
"FILE LOADED 
"disable the save button in the toolbar 
Toolbarl.Buttons.Item(3).Enabled = False 
End Sub 
frmViewOutput.frm 
VERSION 5.00 
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; 
Begin VB.Form frmViewOutput 
Caption = "Watermarked Output Viewer" 
ClientHeight = 4830 
ClientLeft = 60 
ClientTop = 345 
ClientWidth = 7695 
LinkTopic = "Forml" 
MDIChild = -1l 'True 
ScaleHeight = 4830 
ScaleWidth = 7695 
Begin RichTextLib.RichTextBox rtbOutfile 
Height = 4335 
Left = 0 
TabIndex = 1 
Top = 480 
Width = 7695 
_ExtentX = 13573 
_Extenty = 7646 
_Version = 393217 
ReadOnly = -1l 'True 
ScrollBars = 3 
DisableNoScroll = -1 ‘True 
Appearance = 0 
AutoVerbMenu = -1l 'True 
TextRIF = S"frmViewOutput.frx":0000 
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851 } 
Name = "Fixedsys" 
Size = 9 
Charset = 0 
Weight = 400 
Underline = 0 "False 
Italic = 0 "False 
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Strikethrough = 0 "False 
EndProperty 
End 
Begin VB.Label Labell 
Caption = "The contents of Outfile is shown below." 
Height = 255 
Left = 0 
TabIndex = 0 
Top a 120 
Width = 6495 
End 
End 
Attribute VB_Name = "frmViewOutput" 
Attribute VB_GlobalNameSpace = Fals 
Attribute VB_Creatable = Fals 


Attribute VB_PredeclarediId = Tru 

Attribute VB_Exposed = False 

"This form displays the contents of the file whose nam 
"can be found in the frmEmboss.txtOutfile Textbox 


Private Sub Form_Load() 


On Error Resume Next 
Me.Icon = frmMainMDI.Icon 


rtbOutfile.RightMargin = 99999 


Dim LoadfileName As String 
LoadfileName = frmEmboss.txtOutfile.Text 


"load the Outfile to rtbOutfile 
rtbOutfile.LoadFile LoadfileName, rtfText 


End Sub 


Private Sub Form_Resize() 

rtbOutfile.Width = Me.Width —- 120 
rtbOutfile.Height = Me.Height 900 
End Sub 


frmEmailConfig.frm 


VERSION 5.00 


Begin VB.Form frmEmailConfig 
BorderStyl = 4 ‘Fixed ToolWindow 
Caption = "Email Settings" 
ClientHeight = 1755 
ClientLeft = 45 
ClientTop = 285 
ClientWidth = 5040 
LinkTopic = "Forml" 
MaxButton = 0) "False 
MinButton = 0 "False 
ScaleHeight = 1155 
ScaleWidth = 5040 
ShowInTaskbar = 0 "False 
StartUpPosition = 3 'Windows Default 


Begin VB.CommandButton cmdOK 
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Caption = "SOK" 
Default = -1l 'True 
Height = 375 
Left = 3480 
TabIndex = 3 
Top = 1320 
Width = 1455 
End 
Begin VB.Frame Framel 
Caption = "Outfile" 
Height = 1095 
Left = 120 
TabIndex = 0 
Top = 120 
Width = 4815 
Begin VB.OptionButton optOutfile 
Caption = "Outfile as mail attachment." 
Height = 195 
Index = 1 
Left = 120 
TabIndex = 2 
Top = 720 
Value = -1l 'True 
Width = 4215 
End 
Begin VB.OptionButton optOutfile 
Caption = "Outfile contents in mail body." 
Height = 195 
Index = 0 
Left = 120 
TabIndex = le 
Top = 360 
Width = 4215 
End 
End 
End 
Attribute VB_Name = "frmEmailConfig" 
Attribute VB_GlobalNameSpace = Fals 
Attribute VB_Creatable = Fals 
Attribute VB_Predeclaredid = Tru 
Attribute VB_Exposed = False 
Private Sub cmdOK_Click () 
On Error Resume Next 


Load frmMail 


If optOutfile(0).Value Then 
frmMail.rtbMsg.LoadFile frmEmboss.txtOutfile, rtfText 
End If 


If optOutfile(1).Value Then 
frmMail.txtAttachl = frmEmboss.txtOutfile 


End If 

frmMail.Show 

Unload Me 
End Sub 
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frmMail.frm 


VERSION 5.00 


Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; 
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB} #1.2#0"; 
Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; 
Begin VB.Form frmMail 
Caption = "E-Mail" 
ClientHeight = 5130 
ClientLeft = 60 
ClientTop = 345 
ClientWidth = 6135 
LinkTopic a "Forml" 
MDIChild = < "True 
ScaleHeight = 5130 
ScaleWidth = 6135 
Begin MSComDlg.CommonDialog CommonDialogl 
Left = 5520 
Top = 1320 
_ExtentX = 847 
_Extenty = 847 
_Version = 393216 
End 
Begin VB.Frame Framel 
Height = 5055 
Left = 120 
TabIndex = 13 
Top = 0 
Width = 5415 
Begin VB.CommandButton cmdClose 
Caption = "Close" 
Height = 375 
Left = 3000 
TabIndex a 12 
Top = 4560 
Width = 1095 
End 
Begin VB.CommandButton cmdSend 
Caption = "&Send" 
Height = 31D 
Left = 4200 
TabIndex a 11 
Top = 4560 
Width = 1095 
End 
Begin VB.Frame Frame2 
Caption = "SAttachments" 
Height = Wis) 
Left = 120 
TabIndex a 6 
Top = 3480 
Width = S175 
Begin VB.CommandButton cmdAttach2 
Caption = Wea 
Height = 255 
Left = 4800 
TabIndex = 10 
Top = 600 
Width = 255 
End 


Begin VB.TextBox txtAttach2 


Appearance 
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= O ‘Flat 


"RICHTX32.0CX" 
"COMDLG32.0CX" 
"MSMAPI32.0CX" 
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Height 
Left 
Locked 
TabIndex 
Top 
Wid 
End 
Begin VB.CommandButt 
Caption 
Height 
Left 
TabIndex 
Top 
Wid 
End 
Begin VB.TextBox txt 
Appearance 
Height 
Left 
Locked 
TabIndex 
Top 
Width 
End 


th 


th 


End 
Begin VB.TextBox txtSub 
Appearance 
Height 
Left 
TabIndex 
Top 
Width 
End 
Begin VB.TextBox txtSen 
Appearance 
Height 
Left 
TablI 
Top 
Width 


ndex 


End 
Begin RichTextLib.RichT 
Height = 
Left 
TablI 
Top 
Width 
ExtentX 
_ExtentyY 
_Version 
HideSelection 
ScrollBars 
DisableNoScroll 
Appearance 
RightMargin 
AutoVerbMenu 
TextRIF 
End 
Begin VB.Label 
Alignment 
Caption 
Height 
Index 
Left 


ndex 


Labell 
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285 
120 
4 

8 
600 
4575 


on 
255 
4800 
9 
240 
255 


Attachl 


"True 


cemdAttachl 


O ‘Flat 


285 
120 
=1 

a 
240 
4575 


ject 

O 'Flat 
285 

960 

3 

600 

4335 


dTo 

0. 'Elat 
285 

960 

1 

240 

4335 


"True 


extBox rtbMsg 


2175 
120 

2 

1200 
5175 
9128 
3836 
393217 


0 "False 


irue 


"True 


S"frmMail. 


1 'Right 


"&Subject: 


ZI 
5 
120 


frx":0000 


Justify 
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TabIndex = 2 
Top = 600 
Width = 615 
End 
Begin VB.Label Labell 
Caption = "SMessage:" 
Height = 255 
Index = 4 
Left = 120 
TabIndex = 4 
Top = 960 
Width = 735 
End 
Begin VB.Label Labell 
Alignment = 1 ‘Right Justify 
Caption = WET Ou" 
Height = 255 
Index = 0 
Left = 120 
TabIndex = 0 
Top = 240 
Width = 615 
End 
End 
Begin MSMAPI.MAPISession MAPISessionl 
Left = 5520 
Top = 0 
_ExtentX = 1005 
_Extenty = 1005 
_Version = 393216 
DownloadMail = -l1 'True 
LogonuUl = -1 ‘True 
NewSession = 0 "False 
End 
Begin MSMAPI.MAPIMessages MAPIMessagel 
Left = 5520 
Top = 600 
_ExtentX = 1005 
_Extenty = 1005 
_Version = 393216 
AddressEditFieldCount= 1 
AddressModifiable= 0 "False 
AddressResolveUI= 0 "False 
FetchSorted = 0 "False 
FetchUnreadOnly = 0 "False 
End 
End 
Attribute VB_Name = "frmMail" 
Attribute VB_GlobalNameSpace = Fals 
Attribute VB_Creatable = Fals 
Attribute VB_Predeclaredid = Tru 
Attribute VB_Exposed = False 
"This form module is an E-mail client using Microsoft MAPI. 
"MAPI Notes 


The messaging application program interface (MAPI) controls 


There are two MAPI controls: 


— MAPISession 
— MAPIMessages 
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allow you to create mail-enabled Visual Basic MAPI applications. 


The MAPISession control signs on and establishes a MAPI session. 
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‘It is also used to sign off 

' 

"The MAPIMessages control all 
"messaging system functions. 

' 

‘After sign-on is successful, 
"handle to the MAPI session. 

"passed to the MAPIMessages c 
‘using the MAPIMessages contr 
' 


"For these controls to wor 
"services are provided in 
' 

"Note: If you attempt to 
"controls, make sure that you 
"properly or you may not be a 
"such as SignOn. For example, 
"Exchange during the operatin 
"separately from the control 
"functions or MAPI custom co 


Ky 
MAP 


LUT 


n 


Option Explicit 

Private Sub cmdAttach1_Click ( 
CommonDialogl.DialogTitle 
CommonDialogl.ShowOpen 


"If cancel was clicked in 
"then exit sub. 

'The "cdlCancel" 
If Err.Number 


constant 
cdlCancel 


"If program control has r 
"a file in the file open 


"Load the selected fil 
txtAttachl = CommonDialog 
End Sub 


Private Sub cmdAttach2_Click ( 
CommonDialog1l.DialogTitle 
CommonDialogl.ShowOpen 


"If cancel was clicked in 
"then exit sub. 

"The "cdlCancel" 
If Err.Number 


constant 
cdlCancel 


"If program control has r 
"a file in the file open 
"Load the selected fil 


txtAttach2 CommonDialog 


ub 
te Sub cmdClose_Click () 


nload Me 
ub 


te Sub cmdSend_Click () 
n Error GoTo MAPI_ERROR 
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from a MAPI session. 


ows the user to perform a variety of 


the SessionID property contains the 
The session handle must then be 
ontrol or an error results when 

ol. 


MAPI services must be present. MAPI 
I compliant electronic mail systems. 


a program that uses the MAPI 
have the 32-bit MAPI DLLs installed 
ble to perform simple MAPI functions 
on Windows 95, you must install 
g system setup, or install it 
panel to correctly use MAPI 
trols from Visual Basic. 


) 


"Select File to Attach" 


the file save dialog box 


is equivalent to the value 32755. 
Then Exit Sub 
ached here then the user selected 


dialog box and clicked on Open. 


1.FileName 


) 
= "Select File to Attach" 


the file save dialog box 


is equivalent to the value 32755. 
Then Exit Sub 
ached here then the user selected 


dialog box and clicked on Open. 


1.FileName 
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frmLogin.Show vbModal 


If Not LoginOK Then Exit Sub "Cancel was clicked in the login box 


MAPISessionl.UserName = MAPIUserName 
MAPISessionl.Password = MAPIPassword 
MAPISessionl.SignOn 'log the user on 


"setting the DownLoadMail property of MAPISessionl will 
‘will avoid new messages on the server being forced to the 
"user's Inbox immediately, but are downloaded at the time 


"interval set by the user. 
MAPTSession1l.DownLoadMail = False 


DoEvents 


MAP IMessagel.Compose 


MAPIMessagel.RecipAddress = txtSendTo 
"MAP IMessagel.ResolveNam 
[APIMessagel.MsgSubject = txtSubject 
MAPIMessagel.MsgNoteText = rtbMsg.Text 


S 


"Attachments 
If txtAttachl <> vbNullString Then 


a new attachment 
MAPIMessagel.AttachmentName = vbNullString 
s the filename as the attachment name 


End If 
If txtAttach2 <> vbNullString Then 
a new attachment 


MAPIMessagel.AttachmentName = vbNullString 
s the filename as the attachment name 


End If 


MAPIMessagel.Send False 


MAPISession1l.Signoff 
Exit Sub 


MAPTI_ERROR: 

"error handler 
Dim errMsg As String 
"build error message 


errMsg = "An Error occurred while sending mail. 
& vbCrLf & "Error Number: " & Err.Number 

MsgBox errMsg, , "Error using MAPI" 
End Sub 


Private Sub Form_Resize() 
On Error Resume Next 
Me.Icon = frmMainMDI.Icon 


Framel.Width = Me.Width - 345 
Framel.Height = Me.Height 480 


txtSendTo.Width = Framel.Width —- 1080 
txtSubject.Width = txtSendTo.Width 


Debjyoti Das 


MAPIMessagel.SessionID = MAPISessionl.SessionID 


MAPIMessagel.AttachmentIndex = MAPIMessagel.AttachmentCount ‘add 


"the recepient will 


MAPIMessagel.AttachmentPathName = txtAttachl 


MAPIMessagel.AttachmentIndex = MAPIMessagel.AttachmentCount 'add 


"the recepient will 


MAPIMessagel.AttachmentPathName = txtAttach2 


Err.Description 
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rtbMsg.Width = Framel.Width —- 240 


rtbMsg.Height = Framel.Height 2880 


Frame2.Width = Framel.Width - 240 
Frame2.Top = Framel.Height 1575 
txtAttachl.Width = Frame2.Width - 


txtAttach2.Width = txtAttachl.Width 


emdAttachl.Left = Frame2.Width —- 375 


emdAttach2.Left = cmdAttachl.Left 


End Sub 


Private Sub txtAttachl_GotFocus () 
cemdAttachl.Default = True 
End Sub 


Private Sub txtAttachl_LostFocus () 
cmdAttachl.Default = False 
End Sub 


Private Sub txtAttach2_GotFocus () 
emdAttach2.Default = True 


Private Sub txtAttach2_LostFocus () 
emdAttach2.Default = False 


Private Sub txtSendTo_GotFocus () 
txtSendTo.SelStart = 0 


Private Sub txtSubject_GotFocus () 
txtSubject.SelStart = 0 


End Sub 


frmLogin.frm 


VERSION 5.00 
Begin VB.Form frmLogin 


BorderStyl = 4 ‘Fixed ToolWindow 
Caption = "E-Mail Login" 
ClientHeight = 1455 

ClientLeft = 2835 

ClientTop = 3435 

ClientWidth = 3750 

LinkTopic = "Forml" 

MaxButton = 0 "False 

MinButton = 0 "False 
ScaleHeight = 859.662 
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emdSend. Left = Framel.Width - 1215 
emdSend.Top = Framel.Height 495 
emdClose.Left = cmdSend.Left 1200 
cmdClose.Top = cmdSend.Top 


txtSendTo.SelLength = Len(txtSendTo) 


txtSubject.SelLength = Len(txtSubject) 
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ScaleMode 0 'User 

ScaleWidth = 3521.047 

ShowInTaskbar = 0 "False 

StartUpPosition = 2 'CenterScreen 

Begin VB.TextBox txtUserName 
Appearance = O 'Flat 
Height = 345 
Left = 1200 
TabIndex = 1 
Top = 120 
Width = 2445 

End 

Begin VB.CommandButton cmdOK 
Caption = "OK" 
Default = ol ~Erue 
Height = 390 
Left = 1320 
TabIndex = 4 
Top = 1020 
Width = 1140 

End 

Begin VB.CommandButton cmdCancel 
Cancel = -1l 'True 
Caption = "Cancel" 
Height = 390 
Left = 2520 
TabIndex a 5 
Top = 1020 
Width = 1140 

End 

Begin VB.TextBox txtPassword 
Appearance = O 'Flat 
Height = 345 
IMEMode = 3 "DISABLE 
Left = 1200 
PasswordChar a ea 
TabIndex = 3 
Top = 525 
Width = 2445 

End 

Begin VB.Label lblLabels 
Alignment = 1 'Right Justify 
Caption = "SUser Name:" 
Height = 270 
Index = 0 
Left = 105 
TabIndex = 0 
Top = 150 
Width = 960 

End 

Begin VB.Label lblLabels 


Alignment a 

Caption = "&Password:" 

Height = 270 

Index = 1 

Left = 105 

TabIndex = 2 

Top = 540 

Width 960 

End 

End 
Attribute VB_Name = "frmLogin" 
Attribute VB_GlobalNameSpace = Fals 
Attribute VB_Creatable = Fals 
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"Right Justify 
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Attribute VB_PredeclaredId = Tru 


Attribute VB_Exposed = False 
Option Explicit 
Private Sub cmdCancel_Click () 


x 
' 
L 
Unload Me 
S 


set the global var to false 
to denote a failed login 


oginOK = False 
End Sub 
Private Sub cmdOK_Click () 
MAPIUserName = txtUserName 
MAPTIPassword = txtPassword 
LoginOK = True 
Unload Me 
End Sub 
frmStatus.frm 
VERSION 5.00 
Object = "{831FDD16—-0C5C-11D2-A9FC-O000F8754DA1}#2.0#0"; 
Begin VB.Form frmStatus 
BorderStyl = O 'None 
Caption = "Forml" 
ClientHeight = 1635 
ClientLeft = 0 
ClientTop = 0 
ClientWidth = 4680 
LinkTopic = "Forml" 
MaxButton = 0 "False 
MinButton = 0 "False 
ScaleHeight = 1635 
ScaleWidth = 4680 
ShowInTaskbar = 0 "False 
StartUpPosition = 1 'CenterOwner 
Begin VB.Frame fraStatus 
Caption = "Status" 
Height = 1335 
Left = 120 
TabIndex = 0 
Top os 120 
Width = 4455 
Begin MSComct1Lib.ProgressBar ProgressBarl 
Height = 255 
Left = 120 
TabIndex = 1 
Top = 960 
Width = 4215 
_ExtentX = 7435 
_Extenty = 450 
_Version = 393216 
Appearance = 1 
End 
Begin VB.Label lblStatus 
Caption = "status" 
Height = 495 
Left = 120 
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"MSCOMCTL.OCX" 
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TabIndex = 2 
Top = 360 
Width = 4215 
End 
End 
End 
Attribute VB_Name = "frmStatus" 
Attribute VB_GlobalNameSpace = Fals 
Attribute VB_Creatable = Fals 
Attribute VB_Predeclaredid = Tru 
Attribute VB_Exposed = False 
frmAbout.frm 


VERSION 5.00 


Begin VB.Form frmAbout 


BorderStyl = 3 'Fixed Dialog 
Caption = "About MyApp" 
ClientHeight = 3030 
ClientLeft = 2340 
ClientTop = 1935 
ClientWidth = 5505 
ClipControls = 0 "False 
LinkTopic = "Form2" 
MaxButton = 0) "False 
MinButton = 0 "False 
ScaleHeight = 2091.36 
ScaleMode = O 'User 
ScaleWidth = 5169.479 
ShowInTaskbar = 0 "False 
Begin VB.TextBox txtDescr 
Appearance = O 'Flat 
Height = 1335 
Left = 1440 
MultiLine = -1l 'True 
ScrollBars = 2 ‘Vertical 
TabIndex = 4 
Top = 1080 
Width = 3975 
End 
Begin VB.CommandButton cmdOK 
Cancel a -1 ‘True 
Caption = "OK" 
Default = -1 ‘True 
Height = 345 
Left = 4200 
TabIndex = 0 
Top = 2625 
Width = 1260 
End 
Begin VB.CommandButton cmdSysInfo 
Caption = "&System Info... 
Height = 345 
Left = 2880 
TabIndex = 1 
Top = 2640 
Width = 1245 
End 
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Begin VB.Label Labell 


AutoSize = -1l 'True 
Caption = "(Watermarking for Text)" 
BeginProperty Font 
Name = "MS Sans Serif" 
Size = Oh 
Charset = 0 
Weight = 700 
Underline = 0 "False 
Italic = 0 "False 
Strikethrough = 0 "False 
EndProperty 
Height = 240 
Left = 1440 
TabIndex = S) 
Top = 600 
Width = 2445 
End 
Begin VB.Image Imagel 
Height = 840 
Left = 120 
Picture = "frmAbout.frx":0000 
Stretch = -1 "True 
Top oo 240 
Width = 960 
End 
Begin VB.Line Linel 
BorderColor = &HOO808080& 
BorderStyl = 6 ‘Inside Solid 
Index = 1 
X1 = 84.515 
X2 = 5070.879 
Y1 = 1687.583 
Y2 = 1687.583 
End 
Begin VB.Label lbliTitle 
AutoSize = -1l 'True 
Caption = "Application Title" 
BeginProperty Font 
Name = "MS Sans Serif" 
Size = 12 
Charset = 0 
Weight = 700 
Underline = 0 "False 
Italic = 0 "False 
Strikethrough = 0 "False 
EndProperty 
ForeColor = &HOOOO0000E 
Height = 300 
Left = 1440 
TabIndex = 2 
Top a 240 
Width = 1935 
End 
Begin VB.Line Linel 
BorderColor = &HOOFFFFEFFS 
BorderWidth = 2 
Index = 0 
X1 = 98.6 
X2 = 5070.879 
Yl = 1697.936 
Y2 = 1697.936 
End 
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Attribute VB_Name = "frmAbout" 
Attribute VB_GlobalNameSpace = Fals 
Attribute VB_Creatable = Fals 
Attribute VB_PredeclarediId = Tru 
Attribute VB_Exposed = False 


Option Explicit 


" Reg Key Security Options... 
Const READ _CONTROL = &H20000 
Const KEY_QUERY_VALUE = &H1 
Const KEY_SET_ VALUE = &H2 
Const KEY_CREATE_SUB_KEY = &H4 
Const KEY_ENUMERATE_SUB_KEYS = &H8 
Const KEY_NOTIFY = &H10 
Const KEY _CREATE_LINK = &H20 
Const KEY_ALL ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ 
KEY CREATE SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ 
KEY NOTIFY + KEY CREATE LINK + READ CONTROL 
" Reg Key ROOT Types... 
Const HKEY_LOCAL_ MACHINE = &H80000002 
Const ERROR_SUCCESS = 0 
Const REG_SZ = 1 " Unicode nul terminated string 
Const REG _DWORD = 4 ' 32-bit number 
Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" 
Const gREGVALSYSINFOLOC = "MSINFO" 
Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO" 
Const gREGVALSYSINFO = "PATH" 
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias 
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal 
ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As 


Long 
Private Declare Function RegQueryValueEx Lib "advapi32" Alias 
"RegQueryValueEXxA" (ByVal hKey As Long, ByVal lpValueName As String, 
ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, 
ByRef lpcbData As Long) As Long 

Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) 
As Long 


Private Sub cmdSysInfo_Click () 
Call StartSysInfo 


End Sub 
Private Sub cmdOK_Click () 
Unload Me 
End Sub 
Private Sub Form_Load() 
Me.Icon = frmMainMDI.Icon 
Me.Caption = "About " & App.Title 


lblTitle.Caption = App.Title 

txtDescr = "Text Emboss is a proposed solution for watermarking of 
textual content. " 

txtDescr = txtDescr & App.Comments & vbCrLf & vbCrLf 

txtDescr = txtDescr & "Author: Debjyoti Das" & vbCrLf & vbCrLf 

txtDescr = txtDescr & "Author Email: ddas77@email.com, 
ddas77@denmail.everyl.net, debjyoti_das77@yahoo.com" & vbCrLf & vbCrLf 

txtDescr = txtDescr & "Author URL: http://ddas77.tripod.com" & 
vbCrLf & vbCrLf 

txtDescr = txtDescr & "Author: Debjyoti Das" & vbCrLf & vbCrLf 
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txtDescr = txtDescr & "Running from: " & App.Path 
End Sub 
Public Sub StartSysInfo() 
On Error GoTo SysInfoErr 
Dim re As Long 
Dim SysInfoPath As String 
' Try To Get System Info Program Path\Name From Registry... 
If GetKeyValue (HKEY_LOCAL_MACHINE, QREGKEYSYSINFO, QREGVALSYSINFO, 
SysInfoPath) Then 
' Try To Get System Info Program Path Only From Registry... 
ElseIf GetKeyValue (HKEY_LOCAL_ MACHINE, gREGKEYSYSINFOLOC, 
gGREGVALSYSINFOLOC, SysInfoPath) Then 
" Validate Existance Of Known 32 Bit File Version 
If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then 
SysInfoPath = SysInfoPath & "\MSINFO32.EXE" 
' Error -— File Can Not Be Found... 
Else 
GoTo SysInfoErr 
End If 
' Error — Registry Entry Can Not Be Found... 
Else 
GoTo SysInfoErr 
End If 
Call Shell (SysInfoPath, vbNormalFocus) 
Exit Sub 
SysiInfoErr: 
MsgBox "System Information Is Unavailable At This Time", vbOKOnly + 
vbExclamation 
End Sub 


Public Function GetKeyValue(KeyRoot As Long, 


KeyName As String, 


SubKeyRef As String, ByRef KeyVal As String) As Boolean 

Dim i As Long ' Loop 
Counter 

Dim re As Long " Return 
Code 

Dim hKey As Long " Handle To 
An Open Registry Key 

Dim hDepth As Long : 

Dim KeyValType As Long " Data Type 
Of A Registry Key 

Dim tmpVal As String ' Tempory 
Storage For A Registry Key Value 

Dim KeyValSize As Long ' Size Of 
Registry Key Variable 

' 

' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE...} 

' 

rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Open 
Registry Key 

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError " Handle 
BEror ssc 

tmpVal = String$(1024, 0) " Allocate 
Variable Space 

KeyValSize = 1024 " Mark 
Variable Size 
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" Retrieve Registry Key Value... 


EC. = 
Key Value 


If (re <> 
Errors 


RegQueryValueE 


ERROR_SUCCESS) 


x(hKey, 


SubKeyRef, 0, 


KeyValType, tmpVal, KeyValSize) 


T. 


Then GoTo GetKeyError 


If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then 
Null Terminated String... 
tmpVal = Left (tmpVal, KeyValSize - 1) 
Found, Extract From String 
Else 
NOT Null Terminate String... 
tmpVal = Left (tmpVal, KeyValSize) 
Found, Extract String Only 
End If 


Get/Create 


Handle 


Win95 Adds 
Null 
WinNT Does 


Null Not 


" Determine K 
' 


ey Val 


ue Type For Conversion... 


Select Case 
Data Types... 
Case REG_SZ 
Registry Key Data 
KeyVal = 
String Value 


Type 
tmpVal 


Case REG_DWORD 
Word Registry Key Data Type 


For i= 
Each Bit 


Len (tmpVal) 


KeyValType 


To 1 Step -1 


KeyVal = KeyVal 


Value Char. By Char. 
Next 
KeyVal = Format 
Double Word To String 
End Select 
GetKeyValue = Tru 
Success 


Hex (Asc (Mid(tmpVal, i, 


$("&h" + KeyVal) 


re = RegCloseKey (hKey) 


Registry Key 
Exit Function 


GetKeyError: 
KeyVal = "" 
Val To Empty Stri 
GetKeyValue = 


" Cle 


ng 
Fals 


Failure 


anup After An 


re = RegCloseKey (hKey) 


Registry Key 
End Function 


globalVal.bas 


Attribute VB_Name = "globalVal" 
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Error Has Occured... 


Search 
String 
Copy 
Double 
Convert 


Build 


Convert 


Return 


Close 


Exit 


Set Return 
Return 


Close 
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"Hello and welcome to the "globalVal" Basic Module. 
"All global variables are declared in this module. 


Public Const defaultLLENGTH = 60 
Public MAXLLENGTH As Integer 


Public EncodeKeys() As Integer 
'This array stores the encoding secret keys 


"username and password to log on to mail account 
Public MAPIUserName As String 
Public MAPIPassword As String 
Public LoginOK As Boolean "OK was clicked in the E-Mail login box 


InterfaceGlobal.bas 


Attribute VB_Name = "InterfaceGlobal" 

"Welcome to the InterfaceGlobal module. The functions 
"in this module are related to user interface handling 
"routines. 


Sub LoadResStrings(frm As Form) 
"this sub load the strings onto form controls for the from "frm" 


On Error Resume Next 


Dim ctl As Control 

Dim obj As Object 

Dim fnt As Object 

Dim sCtlType As String 
Dim nVal As Integer 


"set the form's caption 
frm.Caption = LoadResString(CInt (frm.Tag) ) 


"set the font 

Set fnt = frm.Font 

fnt.Name = LoadResString (20) 
fnt.Size = CInt (LoadResString (21) ) 


"set the controls' captions using the caption 
"property for menu items and the Tag property 
"for all other controls 

For Each ctl In frm.Controls 


Set ctl.Font = fnt 
sCtlType = TypeName (ctl) 
If sCtlType = "Label" Then 
ctl.Caption = LoadResString(CInt (ctl.Tag) ) 
ElseIf sCtlType = "TextBox" Then 
ctl.Caption = LoadResString(CInt (ctl.Tag) ) 
ctl.ToolTipText = LoadResString(CInt (ctl.ToolTipText) ) 
ElseIf sCtlType = "Menu" Then 
ctl.Caption = LoadResString(CInt (ctl.Caption) ) 
ElseIf sCtlType = "TabStrip" Then 
For Each obj In ctl.Tabs 
obj.Caption = LoadResString(CInt (obj.Tag) ) 
obj.ToolTipText = LoadResString(CInt (obj.ToolTipText) ) 


Next 
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ElseIf sCtlType = "Toolbar" Then 
For Each obj In ctl.Buttons 
obj.ToolTipText = LoadResString(CInt (obj.ToolTipText) ) 
Next 
ElseIf sCtlType = "ListView" Then 
For Each obj In ctl.ColumnHeaders 
obj.Text = LoadResString(CInt (obj.Tag) ) 
Next 


Else 
nVal = 0 
nVal = Val(ctl.Tag) 
If nVal > O Then ctl.Caption = LoadResString(nVal) 
nVal = 0 
nVal = Val(ctl.ToolTipText) 
If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal) 
End If 


Next 


End Sub 


modEmbossGlobalProc.bas 


Attribute VB_Name = "modEmbossGlobalProc" 
Option Explicit 


Public Function arrWordCount(A As String) As Integer 
'This subproc. counts the number of words in 
"the string stored in AS 


Dim i As Integer 
Dim spCount As Integer 


Dim LastCharSpace As Boolean 
For i= 1 To Len(AS) 


If Mid(AS, i, 1) = " " Then 
If LastCharSpace = False Then 
spCount = spCount + 1 
LastCharSpace = True 

End If 


Else 


LastCharSpace = False 
End If 
Next i 


arrWordCount = spCount + 1 
End Function 


Public Function arrSpaceCount (A As String) As Integer 
"This subproc. counts the number of blank spaces in 
"the string stored in AS 


Dim i As Integer 
Dim spCount As Integer 


For i= 1 To Len(A$) 
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If Mid(AS, i, 1) =" " Then 
spCount = spCount + 1 
End If 
Next i 
arrSpaceCount = spCount 


End Function 


Public Function getFirstWordCharCount (strLine As String) As Integer 


"This function returns the character count of the first word 
"in the line stored in the string strLineS. 


Dim i As Integer 
a al 


strLine$ = Trim(strLine$) 

Do While i <= Len(strLine$S) 
If Mid(strLine$, i, 1) = " " Then Exit Do 
a = oF aL 

Loop 


"at i(th) position is a space or i has gone beyond 
"the length of strLine$ 
getFirstWordCharCount =i - 1 


nd Function 


ea] 


This function extracts the next encoding key from the 
EncodeKeys array. 


currentLineNo is the line number being currently processed. 


Important: This is really important. currentLineNo must always 
begin with 0. In other words, the entire program must always 


right now is because of the fact that element index numbers 
in the EncodeKeys array starts from 0. 


ublic Function GetNextKey (ByVal currentLineNo As Double) As Double 


The EncodeKeys element returned by this program is decided by the 


formula: 


(currentLineNo) mod (the UBound of the EncodeKeys array) 


The EncodeKeys array must have been populated by the GenerateKeys 


function before invoking this function. 
On Error Resume Next 


Dim keyID As Integer 
keyID = currentLineNo Mod UBound (EncodeKeys) 
GetNextKey = EncodeKeys (keyID) 


ple return values: 
Mod 4 = 
Mod 
Mod 
Mod 
Mod 
Mod 
Mod 


AORWNHHROB 
Dodo od kas 

ll 
NFOWNEFO 
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: 7 Mod 4 3 
: 8 Mod 4 = 0 
: 9 Mod 4 = 1 
"Note: 

'The expression: 
: x Mod y 


"used in MS Visual Basic 5 & 6 (and maybe every other) 
‘is represented in C/C++ as: 

: xX SY 

"The Mod(ulus) operator (and % in C/C++) 


"is used to divide two numbers and return only the remainder. 
' 


"The modulus, or remainder, operator divides numberl by number2 
"(rounding floating-point numbers to integers) and returns only 
"the remainder as result. (from MSDN 6.0a) 

' 

: 19 mod 4.8 = 4 

’ 8 mod 4.8 = 3 


"Important: 

"Since the return type for this function is double 

"it can return values in the EncodeKeys array in any form. 

'It is the responsibility of the calling function to recognize 
"the type and use it accordingly. This version of the program, 
"however, stores only integer values in the EncodeKeys array. 
"This provision was made for scalablity. In case, the data type 
"of the EncodeKeys array or the data type of the elements 
"stored in the array (if it is made a double type) is changed 
"in future, the code in this function need not be changed. 
"Noted by Debjyoti Das (ddas77@denmail.everyl.net). Please 

"do consider this note carefully before changing this function. 


End Function 


Public Function GenerateKeys(testfile As String) As Boolean 
"This function populates the EncodeKeys array with 

"the secret keys extracted from the file TestFil 

'This function is executed only once, and that is 

"before encoding. 

'This function must be called before any attemp is made to 

"extract encoding keys from the EncodeKeys array throughout 
"the program. 


Dim testFileNum As Integer 
Dim strTemp As String 
Dim charCount As Integer 


testFileNum = FreeFil 
Open testfile For Input As #testFileNum 


Line Input #testFileNum, strTemp "read the first line from 
TestFile 
Close #testFileNum 


Dim Key As Integer 
For charCount = 1 To Len(strTemp) 


Key = Mid(strTemp, charCount, 1) 


ReDim Preserve EncodeKeys(charCount - 1) 
EncodeKeys (UBound (EncodeKeys) ) = Key 
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Next charCount 


GenerateKeys = Tru 

"At this point EncodeKeys contains the keys that will be 
"used to encode the text lines. 

The keys are stored as integer numbers in the 

EncodeKeys array. Now the keys can be extracted from any 
part of the program. 


Note: The EncodeKeys array is actually a dynamic array and 
its length was manipulated in this function. It is 
best to use the UBound & LBound functions to know the 
array dimensions while extracting elements from other 
parts of this program. 

End Function 


Public Sub CollapseMultipleSpaces(strTemp As String) 
'This sub collapses multiple consecutive spaces in the 
"string stored in strTemp. 


Dim i As Integer 


Dim charATi As String 
Dim charATiPlusl As String 


aL 

While i < Len(strTempS) 
charATi = Mid(strTemp$S, i, 1) 
charATiPlusl = Mid(strTempS, i+ 1, 1) 


If charATi = " " And charATiPlusl = " " Then 
"consecutive blank spaces found 
"remove the ith character from strTemp$ 
strTempS = Mid(strTemp$S, 1, i - 1) & Mid(strTempS, i + 1) 


Else 
dy. Sats FL. 
End If 
Wend 
strTempS = Trim(strTemp$S) 
End Sub 
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Tools Used 


Software Tools 


In this section is listed the tools that were used during the work on this project and the 


related software. 


1. Microsoft Visual Basic 6.0. This is an Integrated Development Environment for 
programming for the 32-bit Windows platform. 

2. TextPad 4.4.0 32-bit. This is a wonderful ASCII Text Editor with lots for features 
including development macros. Features a good interface with constant reporting 
of the details for cursor positions etc. This software is developed by Helios 
Software Solutions. 

3. Microsoft Word 2002. A full-featured word processor this program is a 
component of the Microsoft Office suite. The transcript of this project report was 
prepared using this software. 

4. Visio Professional 5.0a for Microsoft Windows. This is an advanced diagramming 
program that was used to prepare block diagrams and other graphic 
representations in this report. 

5. Microsoft PowerPoint 2002. The electronic slides for the presentation that was 
done for this project were prepared using this software. This software is 
component of the Microsoft Office suite. 

6. PDF995 Printer Driver. This printer simulator was used to create the Portable 
Document Format (PDF) file for this report. PDF files are used to publish 
electronic documents and are supported by the Adobe Acrobat Reader. The PDF 
file PostScript format has been set to conform to the ADSC (Adobe Document 


Structuring Conventions) that is designed for high portability. 


Debjyoti Das 128/129 


Text Emboss: Watermarking for Text 


ActiveX Components 


The following ActiveX components have been used and bundled along with the software 


program. 


1. Microsoft Common Dialog Control 6.0 (SP3) 
Microsoft MAPI Controls 6.0 

Microsoft Rich Textbox Control 6.0 (SP4) 
Microsoft Windows Common Controls 6.0 (SP4) 


> oes 


Object Library References 


References to the following Visual Basic objects were used in the software program. 


1. Visual Basic for Applications 
Visual Basic Runtime Objects and Procedures 
Visual Basic Objects and Procedures 


OLE Automation 


Ue ee 


Microsoft Scripting Runtime 
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